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FOREWORD 

During  the  early  stages  of  Operation  Desert  Shield  (ODS),  the  Defense 
Logistics  Agency  (DLA)  energized  several  programs  in  anticipation  of 
large  supply  requirements  from  the  Military  Services.  One  such 
program  was  the  Industrial  Preparedness  Program  (IPP)  which  was 
managed  by  the  Production  Policy  Branch,  Production  Division, 
Directorate  of  Contracting  (DLA-PRS).  During  the  ramp  up  phase  of  ODS 
it  became  apparent  to  DLA-PRS  personnel  that  they  required  an  enhanced 
capability  for  effectively  assessing  the  readiness  posture  of  the 
Agency  in  supporting  the  Military  forces  in  the  Middle  East.  Such 
information  would  he  critical  in  identifying  areas  in  which  rapid 
industrial  support  would  be  required. 

The  DLA  Operations  Research  and  Economic  Analysi.s  Office  was  tasked  by 
DLA-PRS  to  develop  an  analytical  tool  to  assist  DLA  IPP  planners  and 
item  managers  in  identifying  possible  problem  areas.  The  succes.slul 
development  of  this  tool  provides  DLA  an  enhanced  capability  to 
anticipate  and  plan  Services'  materiel  requirements  associated  with 
contingency  operations.  This  report  describes  the  methodology  used 
for  developing  the  tool  as  well  as  provides  an  analysis  of  its  output. 

CHRISTINE  L.  GALLO 
Deputy  Assistant  Director 
Policy  and  Plans 
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EXECUTIVE  SUMMARY 


The  Defense  Logistics  Agency  (DLA)  has  several  ongoing  programs  which 
focus  on  developing  and  maintaining  materiel  support  plans  during  a  time  of 
military  mobilization.  One  such  program  is  the  Industrial  Preparedness 
Program  (IPP) .  The  responsible  office  for  its  execution  is  the  Production 
Policy  Branch.  Production  Division  (DLA-PRS) ,  of  the  Directorate  of 
Contracting.  A  major  aspect  of  this  program  is  the  development  and 
administration  of  production  agreements  with  industry.  These  agreements 
involve  the  production  of  materiel  during  the  time  of  mobilization. 

At  the  onset  of  Operation  Desert  Shield  (ODS) ,  DLA-PRS  identified  a 
requirement  for  an  enhanced  capability  to  effectively  assess  the  readiness 
posture  of  DLA  to  support  projected  materiel  demands  based  on  the 
deployment  of  Military  forces  into  the  Middle  East.  Such  information  was 
critical  for  the  eari.y  identification  of  areas  in  which  rapid  industrial 
support  and  corresponding  procurement  actions  would  be  required. 

In  that  light,  the  DLA  Operations  Research  and  Economic  Analysis 
Management  Support  Office  was  tasked  to  develop  an  analytical  tool  which 
would  provide  information  to  answer  the  following  set  of  questions: 

*  What  is  the  Agency's  expected  readiness  posture  for  meeting  the 
anticipated  materiel  needs  during  ODS? 

*  Which  DLA-managed  items  have  the  potential  of  becoming  a  problem 
due  to  an  inventory  shortfall? 

*  What  will  be  the  degree  of  that  shortfall? 

*  What  procurement  actions  will  be  needed  to  correct  the  project 
shortfall? 

*  When  will  these  procurement  actions  need  to  be  made? 

*  What  will  be  the  funding  requirements  to  support  these  procure¬ 
ment  actions? 

Within  a  month  of  the  study  request,  methodology  and  a  prototype  model 
had  been  developed.  As  a  result  of  the  favorable  review  of  the  test  runs 
and  the  deteriorating  conditions  within  the  Middle  East,  the  Supply 
Management  Division  (DLA-OS) ,  Directorate  of  Supply  Operations  made  a 
supplemental  request.  That  request  involved  determining  additional  funding 
requirements  needed  by  DLA's  four  hardware  centers.  (Defense  General  Supply 
Center  (DGSC) ,  Defense  Industrial  Supply  Center  (DISC) ,  Defense  Electronics 
Supply  Center  (DESC) ,  and  Defense  Construction  Supply  Center  (DCSC))  to 
support  a  select  list  of  Army  weapon  systems  deployed  in  ODS. 
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Based  on  the  successful  development  of  the  requested  analytical 
model,  the  study  recommendations  are: 

*  Model  results  should  be  used  to  prioritize  Agency  efforts  in  IPP 
as  well  as  identify  candidate  NSNs  which  could  be  included  in  the  IPP. 

*  Model  results  should  be  used  to  identify  critical  items  requiring 
augmented  safety  stocks  and/or  actions  to  reduce  production  lead  time 
requirements.  Infomation  gained  from  the  model  can  be  used  to  determine 
the  proper  balance  between  inventory  levels  and  a  responsive  industrial 
base. 


*  The  model  should  be  used  throughout  the  Agency  to  support  c\irrent 
.ind  L'uture  coiitlnj’tiiiey  operations.  This  will  provide  DLA  with  a  re.idy 
source  of  information  to  assess  projected  support  requirements.  It  will 
also  help  quantify  resource  requirements  during  the  planning  phase  of  a 
contingency  operation. 

*  With  respect  to  the  DLA-OS  request,  the  model  identified  a 
requirement  for  $172.2  million  in  additional  funding  to  support  the  Army's 
weapon  system  materiel  needs  for  ODS. 

*  Future  enhancements  to  the  model  should  be  planned.  These 
efforts  should  focus  on  developing  an  exportable  version  of  the  model  which 
make  it  both  user-friendly  and  compatible  with  production  (real  time)  data 
files. 


I. 


INTRODUCTION 


For  some  time,  Defense  Logistics  Agency's  (DLA)  Production  Policy  Branch,  Pro- 
duction  Division,  Directorate  of  Contracting  (DLA-PRS)  had  envisioned  an 
enhanced  capability  for  assessing  how  prepared  the  Agency  was  in  supporting 
the  Services'  projected  War  Reserve  Materiel  Requirements  (WRMR) .  Such  capa¬ 
bilities  would  provide  Industrial  Preparedness  Program  (IPP)  planners  with 
valuable  information  for  identifying  and  prioritizing  production  planning 
workload.  The  development  and  implementation  of  an  enhanced  analytical  tool 
would  provide  managers  with  an  improved  capability  for  identifying  potential 
supply  problems,  assessing  potential  risks,  and  serving  as  a  valuable  source 
for  basing  critical  resource  allocation  and  programming  decisions. 

During  the  initial  stages  of  Operation  Desert  Shield  (ODS) ,  it  became  more 
apparent  that  such  capability  was  urgently  needed.  It  was  felt  that  the 
development  of  this  model  would  assist  Agency  manage >.5;  and  planners  in  de¬ 
creasing  the  "risk"  associated  with  inventory  shortages  for  critical  weapon 
system  items  deployed  in  ODS.  DLA-PRS  was  interested  in  quantifying  DLA's 
expected  funding  expenditures  and  identifying  required  procurement  actions 
associated  with  supplying  hardware  related  materiel  for  ODS . 

Based  on  the  above  functional  description  for  an  analytical  tool,  a  prototype 
model  was  developed.  Results  from  that  effort  were  subsequently  presented  to 
key  management  personnel  from  the  Directorate  of  Contracting  (DLA-P).  As  a 
result  of  the  favorable  review  at  that  meeting,  a  follow-on  briefing  was 
provided  to  the  Director  of  Supply  Operations  (DLA-0) .  That  meeting  resulted 
in  a  request  by  the  Supply  Management  Division,  Directorate  of  Supply  Opera¬ 
tions  (DLA-OS),  for  a  supplemental  study  effort  to  identify  additional  DLA 
funding  requirements  to  support  specific  Army  weapon  systems  (Appendix  A) 
deployed  in  ODS. 

The  DLA-OS  request  was  initiated  in  response  to  briefings  given  by  the  Com¬ 
manders  of  both  the  Army's  Aviation  Systems  Command  (AVSCOM)  and  Tank/Automo¬ 
tive  Command  (TACOM)  to  the  Director  of  DLA.  Those  presentations  provided 
information  on  the  Army's  potential  cost  to  support  the  selected  list  of 
weapon  systems  (Appendix  A).  Based  on  those  cost  initiatives,  DLA's  leader¬ 
ship  felt  it  would  be  prudent  to  identify  the  Agency's  potential  unprogramraed 
support  costs.  The  resulting  funding  requirements  would  then  be  used  in 
justifying  requests  for  additional  funding. 

Jl.  IL’Ifir.Q5h.  DIA-I’RS  t;c(l  th.il,  t:lic  DLA  Operation.':  reh  ami  [•‘.conoin- 
ic  Analysis  Management  Support  Oftice  (DLA-DORO)  develop  a  moael  which  could 
be  used  to  enhance  DLA's  Industrial  Preparedness  Program.  Thus,  the  purpose 
of  the  study  was  to  develop  an  analytical  tool  which  calculates  a  DLA  readi¬ 
ness  posture  as  well  as  project  time-phased  inventory  shortfalls  and  procure¬ 
ment  requirements  for  a  specific  contingency  operation.  In  addition,  this 
tool  was  to  provide  an  adequate  degree  of  "what  if"  capabilities  to  assist 
DLA's  planners  in  making  critical  resource  allocation  and  programming  deci¬ 
sions  . 
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fiSaffiSIiyE? •  The  intent  of  the  project  vas  to  design  and  develop  an 
analytic  tool  that  would  be  used  by  DIA  planners  in  addressing  the  following 
questions; 

*  What  is  the  expected  readiness  posture  of  the  Agency  during  the 
initial  stages  of  a  contingency  operation? 

*  Which  DLA-managed  items  have  the  potentiality  for  an  inventoiry  short* 

fall? 

What  will  be  the  degree  of  that  shortfall? 

*  What  procurement  actions  will  be  needed  to  eliminate  the  shortfall? 

*  When  will  these  actions  take  place? 

■*  What  will  be  the  funding  requirements  associated  with  these  actions? 

IV.  SCOPE 

The  overall  study  encompassed  two  separate,  but  related,  analytic  efforts. 
The  initial  DLA-PRS  effort  focused  on  identifying  DLA's  readiness  posture  and 
associated  procurement  requirements  for  National  Stock  Numbers  (NSNs)  relat¬ 
ed  with  150  weapon  systems  (see  Appendix  B)  deployed  in  ODS.  Demand  rates  for 
those  NSNs  were  based  on  25  percent  of  the  Services'  identified  war  reserve 
requirements.  These  requirements  were  then  added  to  normal  supply  rates  to 
form  aggregate  demand  requirements.  The  analysis  encompassed  a  6  month  time 
period. 

DLA-OS's  request  reduced  the  number  of  weapon  systems  to  32  Army  systems  (5 
systems  managed  by  AVSCOM  and  27  systems  managed  by  TACOM,  see  Appendix  A  for 
listing  of  systems) .  ODS  specific  demand  rates  were  generated  by  a  factored 
increase  in  the  Army's  normal  demand  rates.  These  factors  were  provided  by 
the  Amy  and  were  used  to  reflect  expected  increases  in  weapon  system  usage 
during  ODS.  As  with  the  DLA-PRS  request,  ODS  related  rates  were  combined  with 
normal  usage  rates  to  form  aggregate  supply  requirements .  The  time  interval 
used  for  the  DLA-OS  request  was  set  at  12  months. 

Based  on  guidance  provided  by  both  DLA-PRS  and  DLA-OS,  the  analysis  was  limit¬ 
ed  to  NSNs  managed  by  DLA's  four  hardware  centers  (Defense  General  Supply 
Center  (DGSC) ,  Defense  Industrial  Supply  Center  (DISC) ,  Defense  Electronics 
Supply  Center  (DESC) ,  and  Defense  Construction  Supply  Center  (DCSC)). 

V.  ASSDMPTIONS . 

*  Non-ODS  demand  rates  would  continue  at  current  levels  and  remain 
constant  over  time. 

*  Inventory  Reorder  Points  (ROPs)  and  Objective  Quantities  (OBJ  QTY) 
were  valid  (identified  by  DLA's  item  data  files)  and  would  remain  fixed 
throughout  the  analysis. 


*  With  respect  to  DLA-PRS's  request,  ODS  demand  rates  would  be  deter¬ 
mined  by  taking  25  percent  of  their  identified  Other  War  Reserve  Materiel 
Requirements  (OWRMR) .  ODS  demands  would  be  allowed  to  vary  over  time  based  on 
the  changes  in  the  Services'  monthly  adjusted  WRMR  figures. 

*  With  respect  to  DLA-OS's  request,  ODS  demand  rates  would  be  represent¬ 
ed  by  a  factored  Increase  in  normal  demand  rates.  It  was  assumed  that  these 
factors  accurately  reflected  the  increased  operational  usage  of  the  associated 
systems .  It  was  further  assumed  that  these  demand  rates  would  remain  con¬ 
stant  over  time.  In  cases  where  an  NSN  was  associated  with  more  than  one 
weapon  system,  the  highest  factor  was  applied. 

*  Procurement  actions  would  be  placed  when  an  item's  inventory  position 
dropped  below  its  ROP. 

*  Administrative  lead  times  were  assumed  to  be  minimal.  They  were  not 
accounted  for  in  calculating  the  overall  time  it  took  to  place  an  order.  This 
was  based  on  the  assumption  that  streamlining  of  administrative  requirements 
would  occur  during  ODS. 

VI.  LIMITATIONS 

*  DLA  quarterly  demand  files  were  used  in  developing  input  data  bases. 
This  resulted  in  a  dated  picture  of  the  Agency's  readiness  and  inventory 
postures . 

Based  on  the  aggregate  nature  of  DLA's  data,  ODS  demand  rates  could 
not  be  directly  tied  to  the  specific  force  structure  deployed  in  ODS  (i.e., 
taking  into  account  specific  weapon  systems'  densities  associated  with  the 
operation) . 

*  Only  NSNs  associated  with  key  weapon  systems  were  analyzed. 

VII.  METHODOLOGY 


A.  Initial  Readiness  Value  Indicator 

A  key  aspect  of  DLA-PRS's  request  involved  the  development  of  a  readiness 
indicator.  This  indicator  was  intended  to  be  used  by  item  managers  and  IPP 
planners  in  assessing  DLA's  ability  to  meet  initial  contingency  demands  at 
the  NSNs  level.  The  algorithm  used  in  calculating  tht^  Indicator  value  was: 

Readiness  Value  -  On-Hand  Due -in  -  Due -out  Stocks 

OWRMR  *  .25 

Variables  listed  in  the  numerator  were  obtained  from  DLA's  quarterly  commodity 
item  files  and  were  used  to  represent  the  item's  inventory  position  at  the  end 
of  the  3rd  Quarter  of  the  1990  Fiscal  Year  (FY) .  The  demand  variable  (identi¬ 
fied  in  the  denominator  as  OWRMR)  was  obtained  from  the  Consolidated  War 
Reserve  Records  File.  The  OWRMR  reflected  the  Services'  estimated  adjusted 
war  reserve  requirement,  for  an  NSN,  during  full  mobilization.  The  25  percent 
factor  was  provided  by  DLA-PRS  and  was  used  to  adjust  the  OWRMR  to  a  more 
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modest  rate  that  reflected  the  expected  requirements  of  ODS. 

For  the  DLA-OS  request,  the  above  algorithm  was  modified  to  account  for  both 
normal  and  ODS  demand  rates.  The  equation  used  to  calculate  the  readiness 
Indicator  for  the  DLA-OS  request  was: 

Readiness  Value  -  On -Hand  ■>-  Due -In  -  Due -out  Stocks 

Normal  Demand  Rate  -t-  Army's  Projected  ODS  Demand  Req. 

B,  Introduction  to  the  Inventory  Process 

The  basic  theory  behind  Wilson's  Economic  Order  Quantity  (EOQ)  model  was  used 
In  developing  the  model's  Inventory  process^.  The  focus  of  the  process  In¬ 
volved  calculating  an  NSN's  Inventory  position  (INV  POS)  over  time.  An  NSN's 
inventory  position  was  defined  by  the  following  equation: 

Inventory  Position  -  On-Hand  Qty  +  Due-In  Qty  -  Due-Out  Qty 

By  tracking  an  NSN's  inventory  position  over  time,  shortfalls  (due-out  quanti¬ 
ties)  and  required  procurement  actions  were  then  projected.  Figure  1  shows 
how  the  basic  inventory  process  functions. 


Figure  1 


Inwentori#  Levels  Over  Tine 


Figure  1.  OrapMcal  of  Wilson's  ECX^  model 


1.  NOTE:  For  th«  cnost  p4rC,  on  hand  Invantory  will  ba  uaad  In  daicribing  how  tha  Inv^tory 

procaaa  was  davalopad  within  tha  otodal.  This  a'^n^oach  "treatly  slmpllfiaa  tha  discaaaions. 
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As  shown  by  Figure  1,  inventory  levels  normally  cake  on  a  "sawtooth"  pattern 
over  time.  The  high  point  of  the  pattern  occurred  at  the  Objective  Quantity 
(OBJ  OTY) .  This  calculated  value  represented  the  optional  upper  limit  of  an 
item's  inventory  level. 

The  downward  movement  of  inventory  levels  reflect  the  withdrawal  of  items  over 
time.  Within  the  model,  these  withdrawals  were  represented  by  the  combined 
(both  non-ODS  and  ODS  related  requirements)  demand  rates. 

Replenishment  orders  were  placed  when  inventory  levels  reached  the  Reorder 
Point  (ROP) .  The  ROP  reflect  expected  supply  requirements  between  the  time 
the  order  ’■’as  placed  and  when  the  order  was  to  be  received  (for  the  remainder 
of  the  repoi't  this  interval  will  be  defined  as  Lead  Time  (LT) .  In  some 
cases,  the  ROP  may  have  also  contained  safety  stocks  which  were  reserved  for 
unforeseen  demand  requirements. 

Order  quantities  were  then  calculated  by  caking  the  difference  between  the  1N\' 
POS  and  the  OBJ  QTY .  hote  in  Figure  1  that  on-hand  inventory  levels  did  not 
immediately  move  back  to  the  OBJ  QTY  line  after  falling  below  the  ROP.  This 
delay  occurred  because  of  the  lead  time  requirements. 


C .  Relating  Study  Objectives  to  the  Inventory  Process 


It  was  the  replication  of  the  above  "sawtooth"  pattern  which  was  used  in 
addressing  the  study  objectives.  By  analyzing  the  components  that  made  up  the 
pattern,  critical  information  was  then  obtainable  to  answer  the  questions 
identified  in  Section  111.  The  components  that  were  of  interest  were; 


1 . 
2. 


4 . 

Figure  2  shows 


Order  (Purchase  Request)  quantities 
Dollar  value  of  order 
Time  requirements  for  placing  an  order 
Lead  time  requirements 
how  the  components  fit  into  the  inventory 


process . 
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Figure  2 

Key  Components  for  Analysis 


Fiftur*  2.  Graph  of  key  proceea  coniponanta  auparlmpoaad  onto  Wilaorn'a  EOQ  Modal 

Figure  3  displays  the  equations  and  the  interrelationships  required  for  gener¬ 
ating  values  for  these  components.  The  best  way  to  explain  these  equations  is 
by  relating  them  back  to  the  questions  listed  in  Section  Hi.  The  questions, 
as  well  as  a  short  explanation  of  the  equations,  are  provided  below: 

a .  tfhich  DLA-manattcd  Items  have  the  potentiality  tor  an 
inventory  shortfall?  These  items  were  identified  in  the  model  if  the  on-hand 
inventory  balance  fell  below  zero.  The  on-hand  inventory  levels  were  identi¬ 
fied  by  using  the  followitig  equation: 

On-Hand  Qty  -  INV  POS  -  Due-Ir  Qty  +  due-out  Qty 

b.  What  will  be  the  degree  of  the  shortfall?.  Measuring  the 
degree  of  inventory  shortfall  was  assessed  in  the  model  by  observing  the 
magnitude  of  the  negative  on-hand  inventory  value  (or  by  observing  the  size  of 
the  Due-Out  Quantity). 

c .  Vfhat  procurement  actions  will  be  needed  to  eliminate  the 
shortfall? .  Procurement  actions  refer  to  the  placement  of  an  order.  As  shown 
in  Figures  2  and  3,  those  actions  occurred  if  an  item's  inventory  position 
(IN’V  POS)  fell  below  its  HOP.  Tlie  procurement  quantity  needed  to  eliminate 
the  shortfall  (RQTY)  was  calculated  using  the  equations  in  Figure  3. 

d.  Vftien  will  these  actions  take  place?  Procurement  actions 
occurred  each  rime  an  item's  inventory  position  fell  below  the  ROP.  As  shown 
in  Figure  3,  inventoy  positions  were  determined  on  an  incremental  basis.  At 
the  beginning  of  each  iteration,  the  due-in  file  was  checked  to  see  if  any 
due- in  quantities  arrived  during  the  time  int n-mr-nt .  If  tliere  were  arrivals, 
the  ON-HAND  quantity  was  adjusted  to  reflei.t  the  increase  of  on-hand  stock. 
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Concurrently,  the  due-in  (DLA  CONTRACT  FILE)  quantity  was  appropriately  re¬ 
duced.  Withdrawal  of  stocks  were  then  made  by  subtracting  the  combined  demand 
rate  and  any  due -out  quantities  for  that  time  increment. 


Figure  3,  GraphicaL  portrayal  of  th«  methodology  uaed  to  calculate  the  key  study  parameters.  Hotice 
the  interrelationships  between  the  parameters. 

At  the  end  of  each  iteration,  a  check  was  made  to  determine  if  the  inventory 
position  had  fallen  below  the  ROP.  If  it  had,  a  procurement  action  was  gener¬ 
ated.  That  action  triggered  an  update  to  the  due-in  file.  That  update  in¬ 
volved  the  creation  of  a  due -in  record  that  identified  the  order  quantity  and 
the  month  in  which  the  stocks  were  to  arrive.  (Note  the  line  between  the 
"PLACE  REQUEST"  box  and  the  "DLA  CONTRACT  DATA"  box  in  Figure  3.)  Finally, 
the  ending  Inventory  balance  of  the  current  time  increment  (month) ,  was  used 
to  initialize  the  beginning  balance  for  the  next  iteration.  This  process  was 
then  repeated  for  as  many  time  increments  as  required. 

The  primary  purpose  for  addressing  the  above  question  was  to  provide  informa¬ 
tion  for  developing  proactive  procurement  strategies  in  support  of  contingency 
operations.  Based  on  further  examination,  it  was  felt  a  better  way  to  ad<lrc'.‘:s 
the  issue  was  to  modify  the  above  question  in  the  following  manner  (the  ap¬ 
proach  is  shown  in  the  lower  portion  of  Figure  2): 

When  will  orders  need  to  be  placed  In  order  to  meet  demands? 

The  answer  to  this  question  was  obtained  by  using  the  following  equation 
(equation  variables  represented  monthly  increments): 

Projected  Procurement  Date  -  (Date  Inv.  level  hit  the  ROP)  -  (Lead  time) 
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e .  What  will  be  tha  funding  requirements  associated  with 
these  procurement  actions? 

Funding  requirements  were  determined  by  multiplying  the  quantity  ordered  by 
the  item's  standard  unit  cost  less  DLA's  surcharge  (the  additional  charge  DLA 
places  on  an  item  to  account  for  its  handling/storage/overhead  costs).  The 
equation  used  in  the  model  was: 

Order  Cost  =  Order  Qty  *  (STD  Unit  Price  *  (I  -  DLA  Surcharge) 

**  Note:  DLA  FT  1990  Surcharge  -  .148  *♦ 

Source:  Published  DLA  Surcharge  rates  for  DGSC  (dated  3  Aug  90) 

Valuable  summary  data  was  also  obtained  by  totaling  the  specific  order  costs 
in  various  ways.  Based  on  study  requirements,  summary  information  was  calcu¬ 
lated  in  the  following  categories: 

(1)  Monthly  funding  requirements  for  an  NSN. 

(2)  Total  overall  funding  requirements  for  an  NSN. 

(3)  Aggregated  monthly  funding  requirements. 

(4)  Overall  funding  requirements  for  the  analysis  period. 

D .  Input  Data  Development 

The  first  step  in  conducting  the  analysis  was  to  construct  the  input  data 
file.  This  effort  involved  extracting  and  screening  supply  data  from  sever¬ 
al  DLA  Integrated  Data  Bank  (DIDB)  files.  (See  Appendix  F  for  computer  code.) 
The  cutoff  date  of  these  files  was  the  end  of  the  3rd  quarter,  FY  1990  for  the 
DLA-PRS  request  and  the  4th  quarter,  FY  1990  for  DlA-OS.  Figure  4  (for  DLA- 
PRS's  request)  and  Figure  5  (for  DLA-OS's  request)  show  how  the  input  date 
files  were  developed. 

The  first  step  in  developing  these  flics  Involved  identifying  the  NSNs  associ¬ 
ated  with  selected  weapon  systems.  This  task  was  accomplished  by  matching  the 
Weapon  System's  Designator  Codes  (WSDCs)  contained  In  the  quarterly  commodity 
Material  Readiness  System  Weapon  (MRSW)  files  against  WSDCs  for  systems  in  the 
appropriate  weapon  systems  listing  (Appendixes  A  &  B) .  When  a  match  occurred, 
the  associated  NSN  from  the  MRSW  files  was  appended  to  the  input  file.  In 
many  cases  it  was  possible  for  an  NSN  to  be  associated  with  more  than  one 
system.  When  that  occurred,  the  NSN  was  only  listed  once.  Additional  infor¬ 
mation  pertaining  to  the  Essentiality  Code  (EgsC)  was  also  retained.  Since  an 
NSN  could  have  multiple  EssC's,  (i.e.,  an  NSN  supported  more  than  one  weapon 
system  and  had  a  different  EssC  tor  each  system)  a  screening  process  was 
established  to  retain  only  the  highest  EssC  for  that  NSN. 


C 


Figur*  4.  OlaBCon  of  th*  piocats  uasd  in  davaloplng  th*  Input  data  basa  for  DLA'FRS't  raquatt. 

The  second  step  was  to  aopend  the.  necessary  NSN  inventory  data  to  Initiate  and 
control  the  modeling  process.  Data  for  this  task  was  obtained  from  quarterly 
commodity  item  information  files.  Fields  in  which  data  was  extracted  were 
the  NSN,  item  name,  unit  price,  production  lead  time,  back  order  quantities, 
due-in  quantities,  on-hand  qvjantities,  OBJ  QTY,  annual  demand  quantity,  ROP, 
Item  Category  Code  (ICC),  Frocuvement  Cycle  Months  (PCM),  quarterly  forecasted 
demand  quantity,  annual  demand  quantity,  and  Supply  Status  Code  (SSC) . 

For  DLA-OS's  request,  the  above  data  was  further  screened.  That  process 
involved  eliminating  all  non-stocked  NSN  records  (SSC-2  or  3),  NSNs  with  no 
supply  status  (SSC-0  or  blank)  ,  and  NSNs  that  were  to  be  retained  becau.so  the 
item  was  used  or  its  on-hand  balance  fell  below  the  wholesale  level  (SSC-9)  . 
In  addition,  if  tlie  ICC  equaled  "1"  or  "P"  (item  was  demand  supported)  Che 
listed  OBJ  QTY  was  recalculated  by  using  the  following  equation: 

OBJ  QTY-  ROP  +  (PCM  /  3)  *  QFD 
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Flcure  5 


Flgur*  5.  Dlagcem  o£  the  proteea  t««d  In  developing  the  Input  date  baaa  for  DlA'CB’a  requeei 

The  final  step  was  to  append  the  projected  ODS  related  demand  rates.  For 
DLA-PRS's  request,  ODS  demand  data  (OWRMR  and  the  monthly  adjusted  URMR)  was 
obtained  from  the  Consolioated  War  Reserve  Records  files.  For  DLA-OS's  re¬ 
quest,  ODS  requirements  were  developed  by  determining  the  Army’s  portion  of 
DLA's  annual  demand  requirements  tor  the  Identified  NSN.  This  data  was  ob¬ 
tained  from  DLA's  demand  history  files. 


Calculating  DLA-OS's  "Net"  ODS  Funding  Requirements. 


To  obtain  an  accurate  as.sessment  of  net  ODS  funding  requirements,  normal 
demand  rates  (see  Section  V)  had  to  be  taken  into  account  To  accomplish  that 
task  two  computer  runs  were  made.  The  first  run  involved  calculating  Invento¬ 
ry  levels  and  procurement  requirements  under  a  normal  demand  environment.  A 
second  run  was  then  made  using  both  normal  and  ODS  demand  requirements.  By 
calculating  the  difierences  between  the  two  runs,  net  requirements  were  then 
Identified. 

K.  Output  Data  and  Report  Development 


Layout  of  the  output  files  directly  reflected  the  proces.s  shown  in  Figure  3. 
Analysis  of  output  data  was  inirlally  made  from  mainframe  output  files.  By 
creating  small  utilit/  programs,  summary  information  was  generated  about 
funding  and  lead  time  requirements. 


5',peclal  purpose  data  files  were  also  created  and  downloaded  to  a  personal 
computer.  Phase  III  was  used  to  manipulate  the  data  and  generate  variou.s 
sunuTiary  reports.  One  example  of  a  special  purpose  file  was  the  generation  of 
a  report  for  the  Army's  AH-6A  Apache  helicopter  (See  Table  1  (extract  from 
actual  report)).  Layout  for  both  the  mainframe  and  Phase  111  output  files 
and  reports  were  structured  in  a  manner  to  chronologically  track  an  NSN's 
inventory  and  procurement  activities  over  time.  By  analyzing  the  report, 
assessments  were  made  about  the  lack  of  inventory  for  specific  NSNs,  funding 
requirements  associated  with  supporting  the  weapon  system,  and  lead  time 
requirements  associated  with  the  procurement  actions. 

Information  provided  from  the  Phase  III  reports  (see  Table  1)  were  the  NSN, 
Item  description.  NSN's  readiness  value,  monthly  on-hand  inventory  balance, 
monthly  requisition  quantity,  monthly  requisition  cost,  and  a  required  order¬ 
ing  date.  The  order  date  referred  to  the  date  In  which  the  order  should  have 
been  placed  in  order  to  meet  the  demand  of  that  month.  As  an  example,  a  value 
of  -10  would  mean  that  an  order  should  have  been  generated  10  months  prior  to 
the  start  of  the  contingency  operations. 

Funding  data  was  also  provided  in  the.se  reports  on  a  summary  basis.  In  Table 
1,  cumulative  funding  requirements  were  generated  for:  each  NSN  (the  last 
column  of  the  report)  ,  each  month  (the  bottom  row  of  each  REQUISITION  COST 
column),  and  an  overall  assessment  (last  column  total  (for  the  AH-64  example, 
the  overall  cost  was  $181,461.69  for  a  6  month  period)). 

VIII.  ANALYSIS  OF  RESULTS 

A.  Introduction 

This  section  concentrates  on  explaining  the  model's  capabiliti  '  -asults. 

The  majority  of  the  discussions  will  focus,  at  a  summary  level,  '.e  analy¬ 

sis  of  PLA-OS's  request. 

The  model  was  designed  in  a  manner  to  provide  both  detailed  examination  (micro 
level)  of  specific  procurement  activity  for  an  NSN  as  well  as  an  Agency-wide 
(macro  level)  assessment  of  projected  capabilltie.s  and  shoi  tcomings  In  meeting 
contingency  supply  requirements.  At  the  micro  level,  specific  supply  problems 
were  identified  and  tracked  over  rime.  Information  was  generated  to  identify 
what  and  when  procurement  actions  were  needed  as  well  as  how  long  it  would 
take  for  such  actions  to  eliminate  an  Inventory  shortfall. 

At  the  macro  level,  Agency  managers  and  planners  were  provided  information  to; 

1.  Ascertain  the  Agency's  ability  to  support  surge  requirements 
associated  with  contingency  operations. 

2.  Pevelop  effective  procurement/production  strategies. 

3.  Accurately  project  financial  requirements. 
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B.  A$sessinent  of  Materiel  Assets 


The  first  area  of  analysis  focused  on  assessing  the  Agency's  ability  to  meet 
overall  projected  supply  requirements.  That  was  accomplished  by  first  identi- 
fying  the  total  number  of  NSNs  associated  with  the  weapon  system  listing.  The 
next  step  was  to  deteinnlne  the  number  of  NSNs  in  which  a  procurement  action 
was  required.  By  subtracting  the  two  figures,  the  number  of  NSNs  in  which 
enough  stocks  existed  was  determined.  An  aggregate  stockage  rating  was  then 
calculated  by  determining  the  ratio  of  total  NSNs  over  the  number  of  NSNs  in 
which  no  procurements  were  required.  Table  2  shows  the  resulting  stockage 
support  data  for  DLA's  four  hardware  centers.  The  majority  of  DLA's  hardware 
centers  were  able  to  meet  the  Army's  projected  12  month  materiel  demands  for 
over  50  percent  of  the  NSNs  without  having  to  place  a  procurement  order . 
Based  on  the  results,  the  Agency  had  the  internal  assets  to  fully  support 
about  57.5  percent  of  the  Army's  selected  ODS  supply  requirements. 

Such  information  would  be  valuable  to  DLA's  managers  in  providing  an  initial 
assessment  on  how  prepared  the  Agency  was  in  providing  logistical  support 
during  the  initial  stages  of  a  conflict.  Further  interpretation  of  the  data 
would  provide  management  an  awareness  for  the  magnitude  of  preparation  and 
procurement  activity  needed  to  support  an  anticipated  military  operations. 

Table  2 

DLA  Stockage  Support  Data 


DSSC 

PE$C 

Pisp 

DCSC 

Total  No.  NSNs 

No.  NSNs  w/  Stockage 
shortfall 

4,881 

2,359 

9,386 

3,957 

18,356 

9,742 

38,447 

14,160 

Percent  of  line  with 
adequate  stocks 

51.7% 

57.8% 

46.9% 

63.2% 

Readiness  information  was  also  available  at  the  NSN  level.  Examples  of  that 
data  were  shown  in  Table  1  (see  the  column  titled  READINESS  VALUE) .  These 
values  varied  widely  from  0.000  to  2818.000.  A  value  of  0.000  meant  there 
were  no  slocks  available  to  meet  the  initial  dianand  (i.e.,  0.00  percent  leaili- 
ness  posture).  A  value  of  1.000  would  indicate  that  there  were  just  enough 
stocks  available  to  meet  the  initial  demand  (i.e.,  a  100  percent  readiness 
posture) . 


C.  Identification  of  Funding  Reaulremonts 

Funding  data  was  generated  at  both  the  micro  and  macro  levels.  At  the  item 
manager  (micro)  level,  funding  data  was  available  for  each  NSN  on  both  a 
monthly  and  summary  basis.  Item  managers  would  be  able  to  use  the  data  for 
forecasting  specific  budgetary  requirements. 
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By  si-unniarizlng  the  micro  level  data,  Agency  level  assessments  were  made  about 
the  magnitude  and  disposition  of  DLA  funding  requirements.  As  an  example, 
information  was  generated  to  assess  the  distribution  of  total  funding  require¬ 
ments  by  dollar  thresholds  (see  Figure  6  and  Appendix  C) .  By  analyzing  the 
DLA-OS  data,  it  was  determined  that  less  than  $50.00  would  be  needed,  per  NSN, 
to  meet  all  the  necessary  procurement  actions  for  over  30  percent  of  the  NSNs. 
In  fact,  for  over  50  percent  of  the  NSNs,  less  than  $500.00  (per  NSN)  would  be 
required  to  meet  all  ODS  procurement  needs.  As  a  result,  an  overall  assess¬ 
ment  was  made  that  most  procurement  actions  would  be  of  a  low  dollar  value. 


Figure  6 


Frequency  Dist.  oF  Total  Funding  Raq. 
(Percent  of  Total  Requireitent) 


$1,000  <  $5,000 
24.07 


ISetected  ftrmy  00$  Fundnq  Reqmrements 

6.  Pi«  chart  shows  tb*  dlatrlbutlon  oi  HSNa  by  th«  total  funding  raqulrenanta  for  DLA*0S’b 
r«c/u«it.  That  portion  of  NSNs  with  total  funding  raquLramants  of  lass  than  $50.00  has  baan  cut  way. 

At  the  macro  level,  ag(;regace  requirements  were  generated  to  show  the  distri¬ 
bution  of  additional  funding  by  the  hardware  centers  (see  Figure  7).  As  shown 
by  Figure  7,  $1/2.2  million  would  be  needed  to  meet  all  ODS  related  procure¬ 
ment  requirement;  generated  by  the  DLA-OS  request.  (Refer  to  Appendix  D  for 
disposition  of  requirements.)  The  distribution  of  funding  requirements  was 
fairly  uniform  among  DGSC,  DISC,  and  DCSC,  DKSC's  smaller  requirement  was 
explained  by  the  relati.'ely  low  number  and  small  dollar  value  of  procurement 
actions  (see  Appendix  C  and  D). 
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Flsur*  7.  Pi*  chart  displays  tha  distribution  of  funding  raquiraments  among  the  four  DLA  hardware 
cantars.  A  total  DLA  figura  of  $172.2  million  is  also  shown.  Thesa  figures  raprasant  tha  astlmated 
funding  raquiraments  naadad  to  procure  the  additional  material  to  support  the  Amy's  projected 
demands  (for  the  selected  list  of  weapon  systems  (Appendix  A)). 


A  aonchly  distribution  c£  funding  data  was  also  generated  (see  Figure  8) . 
Such  infomation  provided  a  higher  level  of  resolution  of  funding  data.  By 
analyzing  the  data,  an  assessment  was  made  that  a  great  deal  of  oscillation 
(biaonthly  cycle)  occurred  in  funding  requirements  over  time.  The  bimonthly 
cycle  was  traced  backed  to  demand  rates  and  the  values  set  for  both  OBJ  QTY 
and  ROP.  Uhat  appeared  to  have  occurred  was  OBJ  QTY  levels  were  set  high 
enou^  to  satisfy  2  months  of  demand.  There  also  appeared  to  be  a  secondary 
cycling  action  between  the  bimonthly  high  points.  That  trend  seemed  to  indi¬ 
cate  the  presence  of  a  quarterly  inventory  cycle  for  a  sizable  number  of  NSNs. 
II  .-ipp<-nrc'd  that  a  .surge  In  procurement  actlon.s  did  not  occur  until  about  tlu- 
3rd  month  o£  the  analysis.  This  would  indicate  that  suilicient  inventory  w.ks 
available  to  meet  initial  operational  requirements. 
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Figure  8 


Figut*  8.  Graph  shows  the  monthly  distribution  o£  funding  requlreoionts  aowmg  the  four  DLA  herdwet* 
centers . 


As  another  interesting  point,  DGSC  showed  a  negative  (net)  funding  condition 
in  both  months  A  and  10  (see  Appendix  D)  .  This  anomaly  was  caused  by  the 
forward  shifting  of  funding  requirements.  In  ocher  words,  one  of  the  impacts 
of  increasing  demand  rates  was  to  shift  normal  procurement  cycling  times 
forward.  As  shown  in  Figure  9,  what  occurred  (given  OBJ  QTYs  and  ROFs  were 
kept  constant)  was  that  procurements  actions  were  made  sooner  and  that  the 
number  of  actions  increased  (three  orders  places  versus  two)  given  the  same 
period  of  time.  The  negative  values  for  DGSC  represented  by  a  net  decrease  in 
spending  for  months  A  and  10,  was  accounted  for  by  a  greater  net  increase  in 
months  3  and  9. 
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Figure  9 


INVENTORY  EXAMPLE 

(IMFACT  OP  CONTINGENCY  REQUIREMENTS) 


O-OAY  12  9  4  6 

MONTH 


Figur*  9,  Lin«  graph  showa  tha  Impacta  that  might  occur  to  a  normal  Inventory  proeass  during  the 
Initial  ataga  of  a  military  deployment.  Notice  that  ordara  would  be  placed  aooner  and  more  often 
than  during  normal  condltlona. 

D.  Iroact  of  Production  Lead  Times 

The  lasc  area  of  analysis  focused  on  examining  the  impacts  of  production  lead 
times  on  Inventory  levels.  The  thrust  of  that  effort  was  directed  towards  the 
planning  community  to  hi^light  the  importance  of  developing  IPP  plans .  A 
second  issue  behind  this  investigation  was  to  assess  response  capabilities  of 
the  industrial  base  in  fulfilling  projected  due-outs. 

As  an  exacple,  the  item  manager  could  look  at  a  particular  NSN  and  make  an 
assessment  of  lead  time  impacts  by  tracking  both  the  NSN's  Inventory  position 
and  required  order  dates  over  time.  As  shown  by  Figure  10,  two  parts,  (Bear¬ 
ing  (production  lead  tine  of  11  months)  and  Shear  Bolt  (lead  time  of  A 
months))  from  the  Amy's  AH-64  Attack  Helicopter  were  selected  to  demonstrate 
the  point.  Due-out  levels  for  the  bearing  continued  to  increase  over  time 
(180  day  window).  On  the  other  hand,  some  relief  occurred  with  the  Shear  Bolt 
after  several  months.  During  a  short  contingency  operation,  impacts  of  the 
above  situation  may  result  in  an  unacceptably  high  level  of  risk  of  potential¬ 
ly  critical  parts. 
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Ir.  order  to  reduce  the  adverse  impacts  of  the  above  situation,  three  proposed 
actions  should  be  addressed.  Those  action  are: 

1.  Insure  IPP  plans  have  been  established  with  the  appropriate 
manufacturer  or  supplier. 


2.  Pre -posit  Ion  "near-term"  contingency  demands  by  Increasing 
inventory  safety  levels. 

3.  Investigate  possible  approaches  to  reduce  lead  time  require¬ 
ments  . 


Figure  10 


IMPACT  OF  LEAD  TIME  ON  INVENTORY 

(Example  of  (Ul-M  Parts) 

QTV  OF  ITEflS 


BEORING:  11  MTH  LT  — i— BOLT  SHEAR:  4  HTH  LT 


Fisur*  10  Line  greph  p:ovid«s  an  axanipla  of  lha  Impacts  of  long  lead  times  on  Inventory  levels 

At  the  macro  level  ,  production  lead  time  impacts  were  viewed  in  a  broader 
perspective.  Such  information  vas  designed  to  provide  upper  level  manage¬ 
ment  with  a  gauge  for  assessing  industry's  ability  to  respond  to  a  rapid  surge 
of  materiel  needs.  One  way  to  look  at  the  issue  was  to  stratify  the  NSNs  by 
production  lead  time.  As  shown  by  Figure  11,  an  assessment  was  made  that  a 
relatively  slow  response  would  occur  in  receiving  materiel  from  manufacturers 
or  suppliers.  (In  the  case  of  DISC  managed  items,  most  orders  would  take 
between  2  to  8  months  to  receive.)  Ir  several  extreme  cases,  NSNs  were  iden¬ 
tified  with  lead  times  of  over  2  years.  The  identification  of  those  NSNs 
would  provide  supply  planners  a  clear  signal  that  a  pre • pos itioning  of  stocks 
may  be  necessary.  Re.sults  from  the  other  hardware  centers  showed  similar 
results  (see  Appendix  t) . 
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Flsur*  11.  Bax  displays  tha  distribution  of  DlSC-managad  NSNs  by  its  production  Lead  times. 


IX.  CONCLUSIONS 

*  Development  of  the  model  is  an  important  first  step  in  the  quest  for 
acquiring  an  internal  capability  for  assessing  DLA's  readiness  posture  prior 
to  and  during  the  initial  stages  of  a  military  deployment.  Using  the  DLA-OS 
data  as  an  example,  the  Agency  would  be  able  to  support  selected  ODS  related 
supply  requirements  without  additional  procurement  actions  for  over  57  per¬ 
cent  of  the  NSNs . 


*  The  model  provides  DLA  planners  with  a  logical  and  defensible  ap¬ 
proach  for  defining  both  funding  and  materiel  requirements  over  time.  Fur¬ 
ther,  the  model  provides  an  effective  means  for  developing  detailed  procure¬ 
ment  and  IPP  planning  strategies  for  contingency  operations,  thus  supporting  a 
graduated  mobilization  response  capability. 
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^  1?'^  model  could  be  a  valuable  planning  tool  for  IPP  managers.  Output 

data  could  be  used  in  defining  time-phased  procurement/manufacturing  require- 

forming  the  basis  for  IPP  agreements  with  manufacturers.  In 
addition,  analysis  results,  specifically  the  readiness  indicator  values,  could 
be  used  in  developing  strategies  for  allocating  limited  resources. 

, *  With  respect  to  the  DIA-OS  request,  approximately  $172.2  million  will 
be  required  to  satisfy  the  Army's  defined  ODS  demands.  A  detailed  review  of 
the  results  show  that  most  procurement  actions  will  be  of  a  low  dollar  value. 

*  A  major  area  of  concern  is  the  lack  of  a  credible  source  for  contin¬ 
gency  related  demand  data.  This  is  not  a  new  problem  and  has  continually 
plagued  logistics  war  planners  for  years.  Since  contingency  demand  rates  are 
the  driving  force  behind  the  model's  calculations,  it  is  imperative  that 
acceptance  of  the  results  be  tempered  with  a  true  understanding  of  the  study 
assumptions. 

*  Though  the  study  focused  on  weapon  system  related  items,  the  process 
could  be  easily  adapted  to  other  areas. 

X.  RECOMMENDATIONS 

*  The  model  should  be  used  throughout  the  Agency  to  support  current  and 
future  contingency  operations.  Implementation  will  provide  DLA  with  a  viable 
source  of  data  to  effectively  access  projected  support  capabilities  and  iden¬ 
tify  unprogrammed  resource  requirements  during  the  planning  phase  of  a  contin¬ 
gency  operation. 

*  With  respect  to  DLA-OS's  request,  it  is  recommended  that  at  least 
$172.2  million  in  additional  funding  be  sought  by  DLA  to  support  selected  Army 
weapon  system  materiel  requirements  deployed  in  ODS. 

*  Additional  analyses  should  be  conducted  to  improve  DLA's  contingency 
demand  rates.  One  approach  may  be  to  conduct  a  follow-on  analysis  which  would 
examine  ODS  related  demand  history  files. 

*  Follow-on  runs  of  the  model  (using  the  updated  ODS  related  demand 
rates)  should  be  conducted  to  provide  both  insight  into  the  accuracy  of  the 
initial  estimates ,  as  well  as,  provide  more  accurate  assessment  for  further 
procurement  actions. 

*  With  respect  to  OLA-PRS's  request,  the  model  should  be  used  in 
developing  future  IPP  plans.  This  model  should  augment  DlA-PRS's  current 
library  of  aaalytical  tools  used  in  identifying  candidate  IPP  items,  priori¬ 
tizing  workload,  and  developing  production  strategies. 

♦  Tuture  cooputer  programming  efforts  should  be  planned  to  enhance 
the  current  model's  capabilities.  These  efforts  should  focus  on  developing  an 
exportable  version  of  the  model  and  enhancing  the  model’s  capabilities  by 
making  it  compatible  with  production  (real  time)  data  files.  This  work  should 
include  the  development  of  both  an  Agency  and  NSN  monthly  readiness  indicator. 
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XI.  POTENTIAL  BENEFITS .  The  primary  benefit  of  this  effort  was  the  creation 
of  an  analytical  model  which  provides  DLA  managers  valuable  information  for 
making  critical  resource,  allocation  and  planning  decisions.  This  enhancement 
to  the  decision  making  process,  prior  to  and  during  a  contingency  operation, 
would  increase  DLA's  readiness  capabilities  in  supporting  the  military  serv¬ 
ices.  The  exact  magnitude  of  the  benefits  obtained  from  this  effort  are 
impossible  to  quantify,  given  the  task  of  having  to  put  a  price  on  the  value 
of  providing  information.  Use  of  the  cool  has  already  provided  enormous 
informational  value  to  the  Agency  by  providing  unprogrammed  ODS  funding  esti¬ 
mates  of  wholesale  logistical  support  requirements  to  key  Array  weapon  systems. 


APPENDIX  A 


Army  Weapon  Systems  List  for  DLA-OS  Request 


Aviation  Systems  Command 

(AVSCOM) 

Nomenclature 

WSDC 

Od- Tempo 

Helicopter,  Apache  AH-A6 

61A 

3.00 

Helicopter.  Kiowa  OH-380 

VHA 

3.00 

Helicopter,  UH-60  Series 

40A 

3.00 

Helicopter.  CH47 

05A 

3.00 

Fire  Control  System 

GJA 

3.00 

Tank/Automotive  Command 

:  (TACOM) 

Nomenclature 

WSDC 

Op  -  Tempo 

Ml 

36A 

1.37 

BFVS 

37A 

1.83 

H88 

GFA 

1.25 

M113 

29A 

1.32 

M728 

30A 

1.'12 

2 . b  Ton 

KPA 

1.60 

M939 

79A 

1.93 

HEMTT 

72A 

1  .58 

HMMWV 

80A 

1.35 

5  Ton 

79A 

1.93 

CUCV 

75A 

1.93 

M915/916/920 

73A 

1 . 66 

Trailer  (ABT) 

FZA 

1.68 

10  Ton 

KVA 

1.63 

HFJ1AT 

UWA 

2.88 

M551 

07A 

1 .  50 

FAASV 

FHA 

1.13 

Tractor 

RPA 

1.61 

Scraper 

FFA 

1.61 

Loader 

FEA 

1.61 

Loader 

JAA 

1  6] 

Grader 

FDA 

161 

Crane 

JTA 

1.61 

Crane 

JUA 

1.61 

Crane- 

JVA 

1.61 

Crane 

KXA 

1.61 

Crane 

KWA 

1.61 

APPENDIX  3 


Weapon 


Description 

AIRCRAFT 

AIRCRAFT, 

HELICOPTER, 

AIRCRAFT, 

LAMPS  MARK  III, 

AIRCRAFT, 

ENGINE, 

ENGINE, 

AIRCRAFT, 

ENGINE, 

ENGINE, 

ENGINE, 

CLOSE  IN  WEAPON  SYSTEM, 
AIRCRAFT, 

PACKAGED  POL  ITEMS 
HELICOPTER, 

HELICOPTER, 

HELICOPTER. 

AIRCRAFT, 

AIRCRAFT, 

ENGINE, 

CATAPULT/ARRESTING  GEAR 
AVIATION  FUEL  SYSTEMS, 
COUNTER  MEASURE  SET, 

FIRE  CONTROL  SYSTEM ( FCS ) , 
MISSILE,  AIR  TO  AIR, 
MISSILE,  AIR  INTERCEPT, 
MISSILE,  AIR  TO  AIR, 
MISSILE,  ALL  WEAT  ANTI¬ 
AIRCRAFT, 

HELIO.  LANDING  SYSTEM, 
•SEAL  DELIVERY  VEHICLE 
HELIOCOPTER, 

ENGINE, 

AIRCRAFT, 

AIRCRAFT, 

aircraft , 

AIRCRAFT, 

AIRCRAFT, 

HELICOPTER, 

HELICOPTER, 

AIRCRAFT, 

MISSILE, 


Systems  Listing  for  DLA-PRS  Request 


Weapon  Name 

TOMCAT 

INTRUDER, 

SEA  STALLION, 

HORNET, 

LAMPS  MK  III 
PROWLER , 

AIRCRAFT, 

AIRCRAFT, 

HARRIER, 

AIRCRAFT, 

AIRCRAFT, 

AIRCRAFT, 

CIWS-PHAIANX 
HAWKEYE , 

SEA  STALLION, 
COBRA/ATTACK , 
COBPvA/ATTACK, 

INTRUDER, 

GREYHOUND, 

AIRCRAFT, 


PHOENIX, 

SIDEWINDER, 

SPARROW, 

SHIP,  HARPOON, 


AIRCRAFT, 
STRATOFORTRESS , 
STRATOLI FTER , 

GALAXY, 
STARLIFTER, 
GREEN  GIANT 
SUPER  JOLLY 
EAGLE, 

MAVERICK, 

B-I 


VJSDC 

F-IAA 

ION 

A-6E 

18N 

CH-53A/D/E 

41N 

F/A-18 

43N 

SH-60B 

44N 

EA-6B 

45N 

J-52 

49N 

T-64 

50N 

AV-8B 

55N 

F-402 

68N 

F-404 

09N 

TF-30 

7  ON 

AIN 

E-2C 

1/N 

37N 

RH-53 

42N 

AH/IT 

46N 

AH-IJ 

47N 

EA  -  6A 

53N 

C-2 

57N 

T--i00 

76N 

S2N 

JP-5 

A9N 

AN/SLQ-32 

AAN 

MK-92 

AXN 

AIM-54 

BBN 

AIM- 9 

BCN 

AIM  -  7 

RDN 

ACM -84 

BEN 

C-2A  (REPROCURED) 

bPN 

LAMPS  MKIIl 

RQN 

HTN 

MH-5  3P. 

CFN 

FllO-GE-400 

CGN 

B-52 

041' 

C-135 

05F 

F-  n  1 

lOF 

(;-5 

IIF 

C-141 

12F 

H-3 

15F 

H-53 

16F 

F-)  5 

19F 

AGM-65A 

20F 

APPENDIX  B 


Weapon  Systems 


for  DLA-PRS  Request  (Conf 


D(scr  iption 

WeaDon  Name 

WSDC 

AIRCRAFT, 

THUNDERBOLT  II. 

A-10 

24F 

AIRCRAFT, 

AWACS , 

E-3A 

25F 

AIRCRAFT, 

F-16 

26F 

485L  TACS 

31F 

HELICOPTERS, 

UH-60A/HH-60D 

75F 

COMMUNICATIONS  PROGRAM, 

COMBAT  THEATER  (TRI-TAC) 

4737 

78F 

SUl’PORT  EQUIPMENT, 

FI5  AIRCRAFT 

82  F 

SUPPORT  EQUIPMENT, 

A- 10  AIRCRAFT 

84F 

SUPPORT  EQUIPMENT. 

C-5  AIRCRAFT 

86F 

SUPPORT  EQUIPMENT. 

C-141  AIRCRAFT 

87F 

SUPPORT  EQUIPMENT, 

H-53  HELICOPTER 

89F 

SUPPORT  EQUIPMENT. 

H-1  HELICOPTER 

90F 

SUPPORT  EQUIPMENT. 

H-60  HELICOPTER 

91F 

SUPPORT  EQUIPMENT, 

F-16  AIRCRAFT 

92F 

SUPPORT  EQUIPMENT, 

F-lIl  AIRCRAFT 

94F 

SUPPORT  EQUIPMENT, 

E-M  AIRCRAFT 

95F 

SUPPORT  EQUIPMENT, 

C-135  AIRCRAFT 

96F 

SUPPORT  EQUIPMENT, 

C-I30  AIRCRAFT 

97F 

SUPPORT  EQUIPMENT. 

H-3  HELICOPTER 

AAF 

SUPPORT  EQUIPMENT, 

B-52  AIRCRAFT 

ABF 

AIRCRAFT,  SOH 

(AC130A.  AC130H,  MC130H, 

ECi30E) 

ATF 

ENGINE, 

AIRCRAFT  TF33-P-3/5/9 

(C/EC-135,  B-52H) 

AYF 

ENGINE, 

AIRCRAFT- J 57  ALL  MODELS 

(C-135,  EC-135,  B-52) 

AZF 

ENGINE, 

AIRCRAFT  TF33-100 

(F-lllA/E) 

BBF 

ENGINE, 

AIRCRAFT  TF30-100 

(F-lllF) 

BCF 

ENGINE, 

AIRCRAFT  TF30-P-3/4/7/9 

(F-lllA/D/E) 

BDF 

ENGINE, 

AIRCRAFT  T-56-A-9 

(C-130A/D) 

BGF 

ENGINE, 

AIRCRAFT  T56-A-7/i5 

(C-130B/E/H/N/P) 

BHF 

ENGINE, 

AIRCRAFT  T64-GE-3/7 

(H-53E/C/H,  HH-53B) 

BNF 

ENGINE. 

AIRCRAFT  TF33-P-7 

(C-141A/B) 

BQF 

ENCTUE, 

AIRCRAFT  TF39-GE-1 

(C-5A) 

BRF 

ENGINE, 

AIRCRAFT  FIDO- PW- 100 

(F-15A/B/C/D) 

BTF 

ENGINE, 

AIRCRAFT  FlOO-PW-200 

(F-16A/B/C/D) 

BUF 

ENG! NE, 

AIRCRAFT- FIIO-GE- ICO 

(F-16C/D) 

BVF 

HIGH  SPEED  ANTI -RADIATION 

MISSILE  (HARM) 

AGM-88A 

CRF 

ENGINE. 

AIRCRAFT, 

FlOO-PW-220  (F-15) 

DLF 

AIRCPJVFT, 

HERCULES 

C-130 

OAF 

HELIOCOPTER,  SOF/ 

HH53H  PAVE  LOW 

DUF 

MISSILE, 

TOW 

12A 

HOWITZER, 

M-102 

2  5A 

HOWITZER, 

155  MM, 

M- 148 

35A 

TANK . 

ABR(\MS  , 

M-1 

36A 

fighting  VEHICLE  SYSTEMS, 

BRADLEY  (BFVS) 

37A 

appendix  b 


Weapon  Systems  Listing  for  DLA-PRS  Request  (Cont'd) 


Description 

MISSILE, 

HELICOPTER, 

HELICOPTER. 

MISSILE, 

MISSILE, 

LASEAR  TARGET  DESIGNATOR 
RADIO  SYSTEM. SINGLE 
MASK. PROTECTIVE  A/C,  CHEM 
GAS  MASK, 

NIGHT  VISION  SET, 
COMMUNICATIONS  TERMINAL. 
SQUAD  AUTOMATIC  WEAPON. 
ALARM  CHEMICAL  AGENT: 
COLLECTIVE  PROTECTIVE 
DECONTAMINATING  APPARATUS 
HOWITZER, 

SHELTER  SYSTEM, 

ARMORED  COMBAT  EARTRMOVER 
TRUCK , 

THERMAL  IMAGERY 
FIRE  CONTROL  SYSTEM/ADVAN 
WATER  PURIFICATION  EQUIPM 
WATER  PURIFICATION  EQUIPM 
TOW  NIGHT  SIGHT  EQUIPMENT 
TRUCK,  FORKLIFT:  GAS  ^000 
CRANE.  SHOVEL  TRK  MTD :  20 
RIFLE.  5,5  MM, 

MACHINE  CUN,  GRENADE, 
COLLECTING  PROTECTION  EQU 
MASK  GBR  PROTECTIVE, 
COMMUNICATIONS  TERMINAL, 
DISTRIBUTOR,  WATER  2500  G 
RADIO  SET 

DECONTAMINATING  APPARATUS 
TRUCK,  FORKLIFT,  ROUGH 
LAUNCHER,  TUBULAR, 

SECURE  VOICE  COMMUNICATIO 
RADIO  TERMINAL,  DIGITAL 
water  PURIFICATION  UNIT 
LIGHT  ARMORED  VEHICLE  ,  A 
water  pur FI CAT I on  UNIT 
DECON  APPARATUS,  PWR  DRVN 
MISSILE,  AIR  TO  GROUND 


Weapon  Name 

STINGER 
BLACK  HAWK, 

APACHE, 

DRAGON  ANTITANK 
HELLFIRE 
(LTD)  DEVICE, 

CHANNEL  GROUND  &  AIRBOUR 
. .BIOLOG. .RADIOLOG. (CBR) , 


SATELLITE. 

(SAW) 

MANPACK, 

EQUIPMENT  CBR. 

.POWER  DRIVEN  SKID  MTD, 
MEDIUM  TOWED,  155MM 


TRACTOR 

CED  ATTACK  HELICOPTER 
EMNT  SET,  DIATOMITE  FILTE 
ENT  SET,  1500  GPU 
SET, 

LB.  14A  IN. 

T.  W/BOOM  M20 

40  MM  MOD  III  (HTLD) , 
IPMENT,  NBC  SIMPLIFIED 

SHF  GMF  SATELLITE,  AN/TSC 
AL 

,  PD,  SKD-MTD,  500  CAL 
TERRAIN,  6000  LB  (5ID) 

,  F/GM  TOW  WPN  SYS 
NS  SET 
TROPSCATTER 
-  REVERSE  OSMOSIS 
NT I -TANK 
REVERSE  OSMOSIS 
LT  WT 
SHRIKE 


WSDC 

38A 

UH-60A 

40A 

AH -64 

61A 

63A 

64A 

AN/PAQ-1 

66A 

NE-V  (SINCGARS) 

70A 

M-  24 

71A 

M25  SERIES 

81A 

AN/TVS  -  5 

ACA 

AN/TSC-93A 

AEA 

DSA 

MS (REPLACES  M14&M16) 

DUA 

M- 10 

DVA 

M12A1 

DWA 

EAA 

M51,NBC 

ESA 

(M9) 

FCA 

(M911  6.  M746) 

GAA 

GGA 

(FCS/AAH64) 

GJA 

R,  450  GPH 

HDA 

HEA 

AN/UAS-12 

LVA 

KSA 

-M320T2-M20B-M20h(F) 

KXA 

M16A2 

PWA 

MK19 

PZA 

(XM-20) 

QVA 

M17  SERIES 

QYA 

-94A(V1  6  V?) 

R.JA 

RRA 

AN/PRC- 104 

EOM 

M12/A1 

J3M 

MCH 

M220A1 

XR-M 

'iTiM 

AN/TRC- 1 70 

FWM 

NBM 

VM.M 

SFA 

TMA 

DFN 
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Weapon  Systems  Llatlnf  for  DLA-PRS  Request  (Conc'd) 


Description 

MISSILE,  AIR  TO  GROUND 
MISSILE,  AIR  TO  GROUND 
PERSONAL  DEFENSE  WEAPON 
SNIPER  WEAPON  SYSTEM, 
Troop  Support 
Troop  Support 
MINKSWEKHINC 
CONTROL  SYSTEM 
DECON  APPARATUS 
RELIABILITY,  aVAIUBILITY 
ENGINE,  AIRCRAFT 
ENGINE,  AIRCRAFT 


Weapon  Name 

HARM 

HELLFIRE 

9MM 

M24 

Mask,  Chem-Bio 
Mask,  Chem-Blo 
MINF.SWEEPINC  SYSTEMS 
GUN  FIRE 

POWER  DRIVEN  PORTABLE 
MAINTAINABILITY 
(F15E  F16  C/D) 

T-700 


WSDC 

DGN 

DHN 

TQA 

TSA 

XM42 

UBA 

XM40 

UCA 

DSN 

MK  38 

DYN 

M17 

UNA 

M109  NUC,  BIO,  CHEM 

UJA 

FlOO-PW-229 

EUF 

77N 
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Distribution  of  DLA  Funding  Reouirements 


Aviation  Systemg 


<  $50 

>  *50 

<  *100 

>  *100 

<  *500 

>  *500 

«  *1000 

OCSC 

128 

43 

154 

102 

OESC 

6BA 

119 

343 

253 

DISC 

1760 

347 

1125 

517 

DCSC 

44 

176 

Hi 

Total 

2734 

555 

1798 

1026 

X  Req 

23.23 

4.72 

15.28 

8.72 

T  ank/Automot i ve 


<  *50 

>  *50 

<  *100 

>  *100 

<  *500 

>  *500 

<  *1000 

OCSC 

332 

67 

150 

58 

OESC 

456 

74 

209 

95 

DISC 

3268 

575 

1097 

361 

OCSC 

2.166 

549 

1311 

Zlfi 

Total 

6224 

1265 

2769 

1272 

X  Req 

35.57 

7.23 

15.83 

7.27 

Cumulative  Data 


5_»5,9 

»  *50 

<  *100 

»  *100 

<  *500 

>  *500 

<  *1000 

DCSC 

460 

110 

304 

160 

OESC 

1140 

193 

552 

346 

DISC 

5028 

922 

2222 

898 

OCSC 

2330 

14^9 

692 

Total 

8958 

1820 

4567 

2298 

X  Req 

30.61 

6.22 

15.61 

7.85 

Command  (AVSCOH) 


>  *1000 

>  *5000 

Total 

<  *5000 

<  *10.000 

>  *10.000 

L  i  nes 

339 

133 

326 

1225 

675 

187 

263 

2524 

1802 

550 

575 

6676 

ii.5 

141 

220 

1344 

3261 

1011 

1384 

11769 

27.71 

8.59 

11.76 

100.00 

Command  (TACOM) 

>  *1000 

>  *5000 

Total 

<  *5000 

<  *10.000 

>  *10.000 

L  i  nes 

271 

73 

143 

1094 

298 

85 

75 

1292 

1317 

279 

223 

7140 

1696 

529 

775 

7970 

3784 

966 

1216 

17496 

21.63 

5.52 

6.95 

100.00 

for  OLA  Overel 1 

>  *1000 

>  *5000 

Total 

<  *5000 

<  *10.000 

>  *10.000 

L  i  nes 

610 

206 

469 

2319 

973 

272 

338 

3816 

3119 

829 

798 

13816 

2343 

670 

995 

9314 

7045 

1977 

2600 

29265 

24.07 

6.76 

6.88 

100.00 
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APPENDIX  E 


Production  Lead  Time  Data 


Lead  Time 

Ramt  ^Months) 

DISC 

Number 

DESC 

of  NSNs 

DCSC 

DGSC 

0 

12 

126 

737 

3 

1 

310 

270 

879 

137 

2 

777 

351 

924 

181 

3 

931 

384 

854 

209 

4 

1057 

393 

820 

194 

5 

1514 

282 

568 

153 

6 

946 

169 

263 

102 

7 

796 

97 

150 

70 

8 

573 

43 

89 

75 

9 

396 

44 

87 

56 

10 

237 

32 

49 

45 

11 

161 

6 

31 

34 

12 

71 

4 

20 

35 

13 

37 

7 

24 

12 

14 

42 

8 

9 

10 

15 

32 

3 

10 

12 

16 

20 

0 

7 

15 

17 

18 

2 

0 

7 

18 

15 

- 

3 

4 

19 

15 

- 

0 

2 

20 

4 

- 

0 

1 

21 

1 

- 

0 

2 

22 

3 

- 

3 

2 

23 

3 

- 

- 

1 

24 

3 

- 

- 

1 

25 

1 

- 

- 

- 

26 

1 

- 

- 

- 
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appendix  E  (Cont'd; 
Production  Lead  Time  Data 


DISC 

MO  OF  N6N* 


months 


DGSC 

NO  OF  NSNi 

teo-^ - 


MONTHS 


DESC 

NO  OF  N8N* 


MONTHS 


DCSC 

HO  OF  NBN» 

looo  f  ■  -  -  —  - -  - 


•00  t 


•  00 


»  7  3  4  5  9  7  B  «  W  t?  '3  U  19  10  70  n  22  23 

MONTHS 
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APPENDIX  F 


Comnuter  Code 

Title  Pape 

Development  of  Input  Data  Base  F-2 

Extraction  of  Due-In  Data  F-13 

Call  Main  Program  and  Screen  Funding 

Requirements  F-i5 

Calculation  of  Inventory  Requirements  F-17 

Processing  of  Net  Requirements  r-22 

Calculation  of  Net  ODS  Requirements  F-25 


F-1 


DEVELOPMENT  OF  INPUT  DATA  BASE 


JCL,  ERDM ,  and  SAS  code  used  to  extract  required  data  fro 
commodity  files.  Resulting  output  file  contained  require 
da  La  to  conduct  the  analysis. 

(GOR. MELIUS. JCL(MRIIA) 

//G0R6015I  JOB  (6015 , GOR) . 'MELIUS' . CLASS-3 ,MSGCLASS-V , N0TIFY-GOR6015 
/*JOBPARM  S-GSCl 

/* 

//SORTWSDC  EXEC  PGM-I ERRCOOO , PARM-' MSG-AP ' . REGION-IOOOK 
//SORTLIB  DD  DSN-SYS 1 . SORTLIB . DISP-SHR 
//SYSOUT  DD  SYS0UT-* 

//SYSPRINT  DD  SYSOUT-* 

//SORTIN  DD  DSN-GOR .MELIUS. TACOM.DISP-SUR 

//SORTOUT  DD  DSN-A&TLMPl . 

//  DISP-(NEW, PASS .DELETE) . 

//  DCB-(RECFM-FB,111ECL-9.BLKSIZE-19062) , 

//  UNIT-WORKD, 

//  SPACE-(CYL. (100. 100) .RLSE) 

//SORTWKOl  DD  UNIT-WORKD  .  SPACF.-(CYL.  (  55 . 55)  ) 

//SORTWK02  DD  UNIT-WORKD , SPACE-(CYL. ( 55 , 55) ) 

//SORTWK03  DD  UNIT-WORKD  .  SP.ACE-(CYL,  (  55 . 55)  ) 

//SORTWK04  DD  UNIT-WORKD . SPACE-(CYL. ( 55 , 55) ) 

//SORTWK05  DD  UNIT-WORKD . SPACE-(CYL. ( 55 , 55) ) 

//SYS  IN  DD  * 

SORT  FIELDS-(1, 3,CH.A) 

END 

/* 

//MKLIST  EXEC  SAS 

//SAS. WORK  DD  SPACE- ( 6160 ,( 3000 . 500) ROUND) .VOL-SER-GSOODA 
//DaTAIN  DD  DSN-GOR.1L\R.WPN903. I .DISP-SHR 
//OUTl  DD  DSN-&(.TEMP2  , 

//  DISP-(NEW, PASS. DELETE) , 

//  DC5-(RF.CFM-FB,LRECL-17.BLKSIZE-19057)  , 

//  UNIT-WORKD, 

//  SP.AGE  (TRK,  (500,750)  .RLSE) 

//SYSIN  DD  * 

Data  waR; 

INFILE  DATAIN; 

INPUT 

@02  NSN  $13. 

(315  WSDC  $3. 

@121  ESS  $1.  : 


F-2 


E  -O 


FILE  OUTl  NOPRINT; 
PUT  @01  WSDC  $3. 
@0A  NSN  $13. 
@17  ESS  $1. ; 


/* 

//SORTWSD 

//SORTLIB 

//SYSOUT 

//SYSPRINT 

//SORTIN 

//SORTOUT 

// 

// 

// 

// 

//SORTWKOl 
//SORTWKC2 
//S0RTWK03 
//SORTWKO<!t 
/7S0RTWK05 
//SYS  IN 


EXEC  PGM-IERRCOOO,PaRM-'MSG-AP' .REGION-IOOOK 


DD  DSN-SYSl . SORTLIB, DISP-SHR 
DD  SYSOUT-* 

DD  SYSOUT-* 

DD  DSN-&&TEMP2 ,DISP-(OLD, DELETE. DELETE) 
DD  DSN-&&TEMP3. 

DISP-(NEW, PASS .DELETE) . 

DCB-(RECFM-FB , LRECL-17 ,BLKS1ZE-19057) , 
UNIT-WORKD, 

SPACE-(CYL. (100,100) .RLSE) 

DD  UNIT-WORKD, SPAGE-(CYL. (55.55)) 

DD  UNIT-WORKD, SPACE-(CYL, (55,55)) 

DD  UNIT-WORKD, SPACE-(CYL. (55,55)) 

DD  UNIT-WORKD, SPACE-(CYL, (55,55)) 

DD  UNIT-WORKD, SPACE-(CYL, (55,55)) 

DD  * 

SORT  FIELDS-(1, 3.CH,A) 

END 


/* 


//MATCHl  EXEC  PGM-ATJ91U 
//SYSABEND  DD  SYSOUT-* 


//SYSPRINT 

//SYSUTl 

//SYSUTlA 

//SYSUT2 

// 

// 

// 

// 

//SYSIN 


DD  SYSOUT-* 

DD  DSN-&&TEMP1 ,DISP-(OLD, DELETE. DELETE) 
DD  DSN-&6cTEMP3  ,  DI  SP-(OLD ,  DELETE .  DELETE) 
DD  DSN-GOR, MELIUS. LST, 
DCB-(RECFM-FB,1J1ECL-18.BLKSIZE-19062) , 
UNIT-:350, 

DISP-(NEW, PASS, DELETE) , 

SPACE-(TRK, (100,200) ,RLSE) 

DD  * 


* 


NOREAD 
READ 
RE  ADA 


IF  EOJ 
IF  EOJ A 

MOVE  SPACE  TO  1,100 
EDIT  Hi0,9  TO  HAO , BZZZ , ZZZ , 299 
STRING  'NO.  OF  MATCHED  NSNS;  '  }IA0,12 

P  R1 ,80 


F-3 


EDIT  H20,9  TO  H50 , BZZZ , ZZZ , Z99 
STRING  'NO.  OF  USDC  WITH  MATCHED  NSNS : '  H50,12 
P  Rl,80  EOJ 
ENDIF 

IF  EOJ 
READA 
GO  1 
ENDIF 

IF  EOJ A 

ADD  1  TO  H20.9 
READ 
GO  1 
ENDIF 


IF  N1.3  EQ  Al,3  DO  2  GO  I  ENDIF 

IF  N1.3  LT  Al,3 
ADD  1  TO  H20,9 
READ 
GO  1 
ENDIF 


IF  Nl,3  GT  Al,3 
READA 
ENDIF 
GO  1 


D2 


ADD  1  TO  H10,9 
MOVE  A4,14  TO  Rl,14 
MOVE  N5.4  TO  R15,4 
W2 

READA 

EXIT 


/* 

//SORT3 

//SORTLIB 

//SYSOUT 

//SYSPRINT 

//30RT1N 

//5ORT0UT 

// 

// 

// 

// 


EXEC  PGM-IE«RCOOO,PAkM-':.SG-AP’ , REG lON-lOOOK 
DD  DSN-SY.S  I  .SORTLIB,  DISP-SHR 
DD  SYSOUT-* 

DD  SYSOUT-* 

DD  DSN-GOR , MELIUS . LST . D1 SP- (OLD . DELETE , DELETE) 
DD  DSN-&&TEMP4, 

DISP-(NEW, PASS, DELETE) , 
DCB-(RECFM-FB,LRECL-18,BLKS1Z:  -19062) , 

UN  IT-WORK  I), 

SPACE-(CYL, (100,100) ,RLSE) 


//SORTWKOl  DD  UNIT-WORKD , SPACE-(CYL. ( 55 , 55) ) 
//SORTWK02  DD  UNIT-WORKD , SPAC1> (CYL. ( 55 . 55) ) 
//SORTWK03  DD  UNIT-WORKD . SPACE-(CYL. (55 . 55) ) 
//S0RTWK04  DD  UNIT-WORKD . SPACE-(CYL, (55 , 55) ) 
//SORTWK05  DD  UNIT-WORKD. SPACE-(CYL, (55 . 55) ) 
//SYSIN  DD  * 

SORT  FIF,I.DS-(1  ,13.CH.A) 
liND 
/* 

//I DESS  EXEC  PGM-ATJ91U 
//SYSABEND  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SYSUTl  DD  DSN-&&TEMP4,DISP-(OLD. DELETE. DELETE) 
//SYSUT2  DD  DSN-£.&TEMP5. 

//  DCB-(RECFM-FB,LRECL-21 .BLKSIZE-19068) . 

//  UNIT-3350, 

//  DISP-(NEW, PASS, DELETE) , 

//  SPACE-(TRK, (100,200) ,RLSE) 

//SYSIN  DD  * 

* 

NOREAD 

READ 

LI 

IF  EOJ  EOJ  ENDIF 
ADD  1  TO  H40.3 
MOVE  Nl,18  TO  Rl,18 
READ 

X 

IF  Nl,13  EQ  Rl,13  DO  2  GO  1  ENDIF 

* 

IF  N1.13  NE  Rl,13 
MOVE  H40.3  TO  R19,3 
W2 

MOVE  ZEROS  TO  H40,3 
ENDIF 
GO  1 

* 

D2 

L2 

IF  N14,l  I.T  Rj4,l 
MOVE  N14,l  TO  HI  4,1 
ADD  1  TO  H40,3 
ENDIF 

IF  N15,4  GT  H15,4 
MOVE  N15,4  TO  K15,4 
ENDIF 
READ 
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★ 


IF  Nl,13  EQ  Rl,13  GO  2  ENDIF 
MOVE  H40.3  TO  R19,3 
W2 

MOVE  ZEROS  TO  H40.3 
EXIT 


/* 

//S0RT4 

//SORTLIB 

//SYSOUT 

//SYSPRINT 

//SORTIN 

//SORTOUT 

// 

// 

// 


EXEC  PGM-IERRCOOO,PARM-'MSG-AP' , RECION-ICOOK 
DD  DSN-SYSl . SORTLIB,DISP-SHR 
DD  SYSOUT-* 

DD  SYSOUT-* 

DD  DSN-&&TEMP5 . D1 SP- (OLD , DELETE , DELETE ) 

DD  DSN~&&TEMP5A, 

DISP-(NEU, PASS , DELETE) , 
DCB-(RECFM-FB,I-RECL-21,BLKSIZE-19068)  , 
UNIT-UORKD. 


//  SPAGE-(CYL, ( 100,100) ,RLSE) 

//SORTWKOl  DD  UNIT-UORKD . SPACE-(CYL, ( 55 . 55) ) 
//SORTWK02  DD  UNIT-UORKD , SPACE-(CYL, ( 55 , 55) ) 
//S0RTUK03  DD  UNIT-UORKD , SPACE-(CYL, (55 . 55) ) 
//SORTUK04  DD  UNIT-UORKD , SPACE-(CYL. (55 . 55) ) 
//S0R1'WK05  DD  UNIT-UORKD  ,  SPACE-(CYL,  (  55 . 55)  ) 
//SYSIN  DD  * 

SORT  FIELDS-(1,13,CH,A) 

END 


//ADDATA  EXEC  SAS 

//SAS.UORK  DD  SPACE-(6160 ,( 3000 , 500) ,, .ROUND) ,VOL-SER-GSOODA 
//DATAIN  DD  DSN-GOR.DADS . ITEK904I ,DISP-SHR 
//OUTl  DD  DSN-&&TEMP6 , 

//  DISP-(NEU, PASS, DELETE) . 

//  DCB-(RECFM-FB,LRECL~100,BLKSIZE-19000) , 

//  UNIT-TAPE 

//SYSIN  DD  * 

DATA  WAR; 

INFILE  DATAIN; 

INPUT 

@02  NSN  $13. 

(§2  5  NAME  $19. 

(946  UIC  $2. 

(948  S5C  $1. 

(955  UPRICE  9. 

(982  ICC  $1  . 

(998  PLT  3. 

@104  PCM  3. 

@135  BO  9. 

@144  DUEIN  9. 
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@153  OH  9. 

@180  OBJQTY  9. 

@189  QFD  9. 

@198  ROP  7. 

@232  AD  9. ; 

IF  SSC"-'2'  OR  SSC"-'3’  OR  SSC*-'9'  OR  SSC'-'O'  OR  SSC"' 
IF  ICC-'l'  OR  ICC-'P'  THEN  OBJQrY-ROP+( PCM/3 )*QFD; 

FILE  niJTl  NOPRTNT; 

PUT  @01  NSN  $13. 

@14  NAME  $19. 

@33  'JIC  $2. 

@35  UPRICE  29. 

@44  PLT  23. 

@47  BO  29. 

@56  DUEIN  29. 

@65  OH  29. 

@74  OBJQTY  29. 

@83  ROP  27. 

@90  AD  29. 

@99  ICC  $1. 

@100  SSC  $1 . ; 

/*■ 

//SORT5  EXEC  PGM“IERRCOOO , PARM-'MSG-AP' .REGION-IOOOK 
//SORTLIB  DD  DSN-SYSl .  SORTI.IB , DISP-SHR 
//SYSOUT  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SORTIN  DD  DSN-&&TEMP6.DISP-(OLD, DELETE, DELETE) 

//SORTOUT  DD  DSN-&&TEMP7 . 

//  DISP-(NEU. PASS, DELETE) , 

//  DCB-(RECFM-FB,LRECL-100,BLKSI2E-19000) , 

//  I'NIT-WORKD, 

//  SPACE-(CYL, (200,400) ,RLSE) 

//SORTWKOl  DD  UNIT-WORKD , SPACE-(GYL, (25 , 25) ) 

//S0RTWK02  DD  UNIT-WORKD, SPACF.-(CYL,  (25,25)) 

//S0RTWK03  DD  UNIT-WORKD , SPACE-(CYL, (25 . 25) ) 

//S0RTWK04  DD  UNIT-WORKD , SPACE-(CYL, (25 . 25) ) 

//S0RTWK05  DD  UNIT-WORKD , SPACE-(CYL, (25 . 25) ) 

//SYSIN  DD  * 

SORT  FIELDS-(1,13,CH,A) 

END 

/* 

//MATCH2  EXEC  PGM-ATJ91U 
//5YSABEND  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SYSUTl  DD  DSN-&&TEMP5A,DISP-(OLD, DELETE, DELETE) 
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//SYSUTIA 

//SYSUT2 

// 

// 

// 

// 

//SYSIN 


DD  DSN-&&TEMP7 , DISP-(OLD , DELETE, DELETE) 
DD  DSN-&&TEMP8. 

DCB-(RECFM-FB . LRECL-108 , BLKSI2E-19008) . 
UNIT-3350, 

DISP-(NEW . PASS , DELETE) , 

SPACE-(TRK. (700,800) ,RLSE) 

DD  * 


NOREAD 

READ 

RE/*DA 


IT^  T 

i' 

IF  EOJA 

MOVE  SPACE  TO  1,100 
EDIT  H10,9  TO  H40 . BZZZ, Z2Z , 299 
STRING  'NO.  OF  MATCHED  NSNS ;  '  H40,12 

P  Rl,80 

EDIT  H20,9  TO  H50 . BZZZ , ZZZ . Z99 

STRING  'NO.  OF  NSNS  WITH  NO  MATCH  TO  ITEM  FILE;' 
P  Rl,80  EOJ 
ENDIF 


H50. 12 


IF  EOJ 
READA 
GO  1 
ENDIF 

IF  EOJA 

ADD  1  TO  H20,9 
READ 
CO  1 
ENDIF 

IF  N1.13  EQ  Al,13  DO  2  GO  1  ENDIF 

IF  Nl,13  LT  Al,13 
ADD  1  TO  H20,9 
RFAD 
GO  1 
ENDIF 

IF  Nl,13  GT  Al,13 
READA 
ENDIF 
GO  1 
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D2 

ADD  1  TO  H10,9 
MOVE  Al.lOO  TO  Rl.lOO 
MOVE  N14,8  TO  Rl()l,8 
W2 

READ 

READA 

EXIT 

/* 

//SORT6  EXEC  PGM-IERRCOOO.PARM-'MSG-AP' .REGION-IOOOK 

//SORTLIB  DD  DSN-SYSl . SORTLIB . DISP-SHR 
//SYSOUT  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SORTIN  DD  DSN-&&TEMP8.DISP-(OLD. DELETE. DELETE) 

//SORTOUT  DD  DSN-&&TEMP9 , 

//  DISP-(NEU, PASS, DELETE) . 

//  DCB-(RECFM-FB.LREC1^108,BLKSIZE-19008) , 

//  UNIT-WORKD, 

//  SPACE-(CYL, (100, 100) ,RLSE) 

//SCRTWKOl  DD  UNIT-UORKD, SPACE-(CYL. (51 . 55) ) 

//S0RTWK02  DD  UNIT-WORKD . SPACE-(CYL, (55 . 55) ) 

//S0RTUK03  DD  UNIT-WORKD . SPACE-(CYL. (55 . 55) ) 

//S0RTWK04  DD  UNIT-WORKD . SPACE-(CYL. ( 55 . 55) ) 

//SORTWKOS  DD  UNIT-WORKD . SPACR-(CYL. (55 , 55) ) 

//SYSIN  D!)  * 

SORT  FIELDS-(1,13.CH.A) 

END 

/* 

//IDEM')  EXEC  PCM-ATJ91U 
//SYSABEND  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SYSUTl  DD  DSN-GOR.DEMD904. 1  ,D^‘’"-SHR 
//SYSUT2  DD  DSN-&61TEMPIO, 

//  DCB-(RECFM-FB,LRECL-19,BLKSIZE-19057) . 

//  UNIT-3350. 

//  DISP-(NEW, PASS. DELETE) . 

//  SPACE-(TRK, (100,200) ,RLSE) 

//SYSIN  DD  * 

NORF.AD 

L2 

READ 

IF  EOJ  EOJ  ENDIF 
IF  N26.1  NE  '1'  GO  2  ENDIF 
IF  N27,l  EQ  'T'  GO  2  ENDIF 
MOVE  N3.13  TO  R1.13 
MOVE  N32,6  TO  RU,6 
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ADD  m2.S  TO  R1A,6 
ADD  N52,6  TO  R14,6 
ADD  N62,6  TO  R14,6 
ENDIF 
II 

IF  EOJ  EOJ  ENDIF 
ADD  1  TO  H40.3 
READ 

IF  N26.1  NE  '1'  GO  1  ENDIF 
IF  N27,l  EQ  'T'  GO  1  ENDIF 


IF  N3,13  EQ  RI,I3 
ADD  N32.6  TO  R14,6 
ADD  N42.6  TO  R14,6 
ADD  N52.6  TO  R14,6 
ADD  N62,6  TO  R14.6 
GO  1 
ENDIF 

IF  N3.I3  NE  R1,13 
W2 

HOVE  N3.13  TO  Rl,13 
MOVE  N32,6  TO  R14 , 6 
ADD  N42 ,6  TO  R14.6 
ADD  N52.6  TO  R14,6 
ADD  N62,6  TO  R14,6 
ENDT.F 
GO  1 


/* 

//HATCHS  EXEC  PGM-ATJ91U 
//SYSABEND  DD  SYSOUT-* 

//SYS PRINT  DD  SYSOUT-* 

//SYSUTl  DD  DSN-&&TEMP9,DISP-(OLD, DELETE. DELETE) 
//SYSUTlA  DD  DSN-&&TEMP 10. DISP- (OLD, DELETE, DELETE) 
//SYSUT2  DD  DSN-GOR, MELIUS. TADATI , 

//  DCB-(RECFM-FB,IJ?ECL-117,BLKSIZE-189S4) , 

//  UNIT-3350, 

//  VOI/-SER-DOROG2 , 

//  DISP-(NEW, CATLG, DELETE) , 

//  SPACE~(TRK, (900,950) ,RLSE) 

//SYS IN  DD  * 


NOREAD 

READ 

READA 
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LI 

IF  ECJ 
IF  EOJA 

MOVE  SPACE  TO  1.100 
EDIT  H10,9  TO  HA0,BZZZ,ZZZ.Z99 
STRING  'NO.  OF  MATCHED  NSNS :  '  H40,12 

r  R1.80 

EDIT  H20,9  TO  H50,BZZZ,2ZZ,Z99 

STRING  'NO.  OF  NSNS  WITH  NO  MATCH  FROM  DATA;'  H50,12 
P  Rl,80 

EDIT  H30,9  TO  H60,BZZZ.22Z.Z99 

STRING  'NO.  OF  NSNS  WITH  NO  MATCH  TO  WAR  FILE:'  H60,12 
P  R1.80  EOJ 
END  IF 

* 

IF  EOJ 

ADD  1  TO  H30,9 
READA 
GO  1 
ENDIF 

★ 

IF  EOJA 

ADD  1  TO  H20.9 
READ 
GO  1 
ENDIF 

★ 

IF  N1.13  EQ  Al,?3  DO  2  GO  1  ENDIF 

* 

IF  Nl.13  LT  Al,13 
ADD  1  TO  H20,9 

*  MOVE  Nl.llO  TO  Rl.llO 

*  MOVE  ZEROS  TO  Rill, 48 

*  W2 
READ 
GO  1 

ENDIF 

* 

IF  Nl,]3  GT  Al,  13 
ADD  1  TO  H30,9 
READA 
ENDIF 
GO  1 

* 

D2 

ADD  1  TO  H10,9 
MOVE  Nl.lOe  TO  FI, 108 
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MOVE  A14.6  TO  R109.6 

W2 

READ 

READA 

EXIT 


EXTRACTION  OF  DUE- IN  DATA 


Computer  Code  used  to  extact  due-ln  data  from  DLA's  contract 
files  (GOR . ALLACF .  X)  from  each  Inventory  Control  Point  (ICP). 
Program  was  written  In  both  SAS  (used  to  extract  data)  and  ERDM 
(used  to  sort  data  by  NSN,  then  by  due-in  date). 


(COR. MELIUS. JCL(MRICON) 

//GOR6015U  JOB  (6015 , GOR) MELIUS ' .ClASS-3 .HSGCLASS-V , NOTIFY-GOR6015 
/*JOBPARM  S-GSCl 
/* 

//MKLIST  EXEC  SAS 

//DATAIN  DD  DSN-GOR. DADS .ALLACF. G . DISP-SHR 
//OUTl  DD  DSN-&&TEMP1, 

//  DISP-(NEW. PASS. DELETE) . 

//  DCB-(RECFM-FB,LRECL-27,BLKSIZE-19062) . 

//  UNIT-WORKD, 

//  SPACE-(TRK. (400,650) .RLSE) 

//SYSIN  DD  * 

DATA  VAR; 

INFILE  DATAIN; 

INPUT 

@64  NSN  $15. 

@79  CODE  1. 

@49  QTY  PD5. 

@145  DTD  PD3. ; 

IF  CODE  -  '  ' ; 

IF  DTD  >  '90273' ; 

IF  DTD  <  '91273' ; 

FILE  OUTl  NOPRINT; 

PUT  @01  NSN  $13. 

@14  DTD  Z5. 

@19  QTY  Z9. ; 

/* 

//SORTNSN  EXEC  PGM-IERRCOOO , PARM-'MSG-AP' .REGION-IOOOK 
//SORTLIB  DD  DSH-SYSl . SORTLIB , DISP-SHR 
//SYSOUT  DD  SYS0UT-* 

//SYS PRINT  DD  SYSOUT-* 

//SORTIN  DD  DSN-&&TEMP1,DISP-(0LD. DELETE, DELETE) 

//SORTOUT  DD  DSN-GOR . MELIUS . MRIPG , 

//  DISP-(NEW, CATLG, DELETE) , 

//  DCB-(RECFM-FB.LRECL-27,BLKSIZE-19062) , 

//  UNIT-3350, 
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//  VOb-SER-DOROG2 . 

//  SPACE-(CYL, (25,50)  .RLSE) 

//SORTWKOl  DD  UNIT-WORKD  .  SPACE-(CYL.  ( 15 . 15)  ) 
//SOR7WK02  DD  UNIT-WORKD ,  SPACE- (CYL,  (15 . 15)  ) 
//SORTWK03  DD  UNIT-WORKD , SPACE- (CYL ,( 15 . 15) ) 
//SORTWKOL  DD  UNIT-WORKD  ,  SPACE-(CYL.  ( 15 . 15)  ) 
//SORTWK05  DD  UNIT-WORKD , SPACE- (CYL. ( 15 , 15) ) 
//SYSIN  DD  * 

SORT  F1ELDS-(1,13 .CH.A, 14.5,CH,A) 

END 

/* 
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Call  Main  Program  and  Screen  Funding  Requirements 


Computer  code 
program  and 
requirements . 


that  calls  main  FORTRAN  (GOR . MELIUS . JCL(MRIl) 
screens  resulting  data  for  total  funding 


(GOR . MELIUS . JCL(MRITC4) 


//COKf.Ol  51  JOB  (6015. COR)  .  'MF.I.TUS'  .MSCCIASS-V  , Cl  ASS-1  ,  NOTl  FY-CnR601 5 

//*IYI>KUN-S(:aN 

/*J0BPARM  S-GSCl 

//************************************************** ***************** 
//*  * 

//*  TUTS  PROGRAM  RUNS  THE  MR  I  INVENTORY  POSITION  PROGRAM  * 

//*  * 

//************************************'****«************************** 

//* 

//* 

//************************************************>******** 


//*  * 

//*  JCL:  GOR. MELIUS. JCL(MRI)  * 

//*  COMPUTES  INDICATOR  VALUES  AND  WRITES  OUT  A  FILE  * 

//*  * 


//**************************************:•  ************ir***** 

//* 

//INVPS  EXEC  FORTVCG, 

//  PARM-’NODECK, NOLIST, NOTF,OPT(0) .SOURCE, NOSRCFLG' 

//FORT.SYSIN  DD  DSN-GOR . MELIUS . JCL(MRI 1 ), DISP-SHR 
//GO.  PrO?FU01  DO  OSN-COR  melius. AVDATl .DISP-SIIR 
//(.'O.lTOH'OOl  DD  DSN-COK. melius. MKIPI  .DISI'-SIIK 
//GO.FT06F001  DD  SYSOUT-* 

//GO, FT08F001  DD  DSN-GOR , MELIUS . TT . 

//  DISP-(NEW. PASS. DELETE) , 

//  DCB-(LRECL-392,BLKSIZE-18816.RECKM-FB) . 

//  UNIT-WORKD , 

//  SPACE-(TRK, (400,600) ,RLSE) 

//SYSOUT  DD  SYSOUT-* 

//SYS*.IINT  DD  SYSOUT-* 

//SYSDUMP  DD  SYSOUT-* 

/* 

//SCREEN  EXEC  PGM-ATJ91U 
//SYSABEND  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SYSUTl  DD  DSN-GOR. MELIUS. TT.DISP-(OLD. DELETE. DELETE) 
//SYSUT?  DD  DSN-&&TEMP7. 

//  DISP-(NEW. PASS, DELETE) , 
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//  DCB-(LRECL-392.BLKSIZE-18816,RECFM-FB) , 

//  UNIT-WOEIKD , 

//  SPACE-(TRK,  (/*OO.bOC)  ,RLSE) 

//SYSIN  DD  * 

* 

NOREAD 

READ 

1.1 

IF  EOJ 

MOVE  SPACE  TO  1,100 
EDIT  H10,9  TO  H20  .  RZ7.Z .  ZZZ ,  Z99 
STRING  'NO.  OF  ITEMS:'  H20.12 
P  Rl,80  EOJ 
END  IF 

■> 

IF  N377.12  NE  '  0.00'  ADD  1  TO  H10.9  U2D  READ  GO  1  ENDIF 

/* 

//SORTF  EXEC  PGN-IERRCOOO , PARM-'MSG-AP' , REGION-IOOOK 
//SORTLIB  DD  DSN-SYSl.SORTLIB.DISP-SHR 
//SYSOUT  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SORTIN  DD  DSN-&&TEMP7.DISP-(0LD. DELETE. DELETE) 

//SORTOUT  DD  DSN-GOR  MELIUS .AVCRPT.TS I . 

//  1)1S1'-(0I.I),KI'I.I-.I)KI.F,TK)  . 

//  D<:il-(  IJU'-.CI.-  ,  IIIKS  1  7.K-1  HHIG  .RKCFM-I  ll) . 

//  UNlT-33bO. 

//'  V0L-SER-D0RCG2 . 

//  SPACE-(TRK.(200,300) ,RLSE) 

//SORTWKOl  DD  UNIT-UORKD , SPACE-(CYL, (55 . 55) ) 

//S0RTUK02  DD  UN1T-W0RKD,SPACE-(CYL. (55,55)) 

//S0RTWK03  DD  UNIT-WORKD . SPACE-(CYL. (55 . 55) ) 

//SORTWK04  DD  UNIT-WOPJ<D ,  SPACE-(CYL.  ( 55 . 55) ) 

//S0RTWK05  DD  UNIT~WORKD , SPACE-(CYL, ( 55 . 55) ) 

//SYSIN  DD  * 

SORT  FIELDS-(33,8.CH.A. 79,3,CH,D) 

END 

/* 
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CALCULATION  OF  INVENTORY  REQUIREMENTS 


FORTRAN  code  which  was  written  to  calculate  Inventory  positions  and  procure¬ 
ment  requirements . 


(GOR . MELIUS . JCL(MRI1 ) ) 

Q  'k'kic-k'k'k-k-ic-k-kicic-k-kic’k-kic-k'k'k’k-k'k'k'^'k'kic  k'kieir'kit'k'k'k'k'k'kicitic-ic'k’kiir-k'k'kie'k'k'k'k'k'k'k^dr'kicieic-k'kic'k 


C  *  ***  MINI  MOBILIZATION  STATUS  MODEL  ***  * 
C  *  * 
C  *  THIS  MODEL  INVENTORY  POSITION  INFORMATION  AND  PROCURMENT  * 
C  *  STRATEGIES  FOR  IDENTIFIED  MOBILIZATION  ITEMS  * 
C  *  * 


c 

C  GOR. MELIUS. JCL(MRI) 

C 

C  PROGRAM  VARIABLES 
C 

C  CDATE  -  CURRENT  DATE  (JULIAN) 

C  PQTY  -  PURCHASE  QUANTITY 
C  PDATE  -  DATE  TO  PURCHASE  ITEMS  (JULIAN) 

C  DIDATE-  DATE  THAT  QTY  IS  DUE  IN  (JULIAN) 

C  DOQTY  -  DUE  OUT  QUANTITY 
C  DIQTY(6)  -DUE  IN  QUNTITY 
C  INFILE  -  MRl  RAW  DATA  FILE 
C  OTFILE  -  OUTPUT  FILE 
C 

INTEGER  INFILE, COFILE, OTFILE 
C 

DATA  INFILE/2/ 

DATA  COFILE/3/ 

DATA  CTFILE/8/ 

REAL  TC0ST,0FILE,M:CST(7) 

TCOST-O.OO 
DO  60  1-1,7 
MTCST(I)-0.00 
60  CONTINUE 

READ  IN  MRI  DATA  FILE 

OPEN( INFILE, STATUS- 'OLD' ) 
0PEN(C0FILE,STATUS-'0LD'  ) 

OPPN(OTFILE, STATUS-' NEW') 

CALL  COMPUK INFILE , COFILE , OTFILE , TCOST , MTCST) 
WRITE(OTFILE,A10) 

A 10  FORMAT (lOX) 
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WR1TE(OTFILE.400)  MTCST(l) .MTCST(2) .MTCST(3) .KTCST(4) , MTCST(5) , 
+  MTCST(6) ,MTCST(7) .TCOST 

400  FORMAT(54X.F14.2.15X.F11.2,16X.F10.2.17X.F10.2.17X,F10.2,17X. 

+  F10.2,17X.F10,2,F15.2) 

CLOSEC INFILE) 

CLOSE(COFILE) 

CIjOSE(OTFILE) 

STOP 

END 

C 

SUBROUTINE  C0MPUT(INFiLF, COFILE. OTFILE, TCOST, MTCST) 

C 

C  INITIALIZE  FIELD  NAMES 
C 

CHARACTER  NSN*13 .NAME*19 

REAL  RCOST{7) .SURCH.READI .SCOST, TCOST. MTCST(7) 

INTEGER  PRICE , BO , DI . OH , QFD , CDATE . LDT . INFILE , OTFI LE . COFILE 
INTEGER  DDATE,PDATE(7) . ALT . PLT.OBJQTY,REQ( 7 ) , BALC . DQTY( 37 ) 
INTEGER  MFD,RQTY(7) , DUEOUT. BAL( 7) . ROP. JDATE , CQTY , OWRMR 
INTEGER  REQl , REQ2 , REQ3 , REQ4 , REQ5 , REQ6 .DOIT 
C 

C  READ  IN  ITEM  DATA 
C 

DOIT-1 

1  RFJU)(INFILE, 100, END-99)  NSN , NAME, PRICE, ALT. PLT, BO , 

+  DI . OH , OBJQTY , QFD , ROP , OURMR , REQl . REQ2 . REQ3 , REQ4 , REQ5 , REQ6 
100  FOPJIAT(A13.A19.I9.I3.13.I9.I9.19,19,I9.I7.I9.I8.I8,I8,I8,I8,I8) 

INITIALIZE  INPUT  DATA 

LDT-PLT 

MFD-NINT(QFD*. 333334) 

C  DUEOUT-BO 
REQ(l)-0 

REQ(2)-(RF.QI*.25)h-.  5 
REQ(3)-(REQ2*.25)+.5 
REQ(4)-(REQ3*.25)+.5 
REQ(5)-(REQ4*,25)+  5 
REQ(6)-(REQ5*.25)  +  .  5 
REQ(7)-(REQ6*.25)f.5 
BALC-OH-BO 
SURCH-.852 
IF(OWRMR.GT.O)  THEN 
READI-OH/ ( OWRMR* . 2 5 ) 

ELSE 

READI-1.000 

ENDIF 
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C  DO  80  N-1.7 
C  RCOST(N)-00000.00 

C  RQTY(N)-0 

C  80  CONTINUE 

<: 

CALL  C0NTR(C0F1LE,NSN.DQTY,D0IT) 

DOIT-0 

C 

CALL  INVPOS ( BALC , MFD , ROP . OBJQTY . REQ . DQTY . RQTY . 

+  RCOST , PDATE , LDT , BAL .PRICE, SURCH , S  COST , TCOST) 

SUM  UP  ITEM  COST 
DO  90  0-1, 7.1 

MTCST(0)-MTCST(0)+RC0ST(0) 

90  CONTINUE 

TCOST-TCOST+SCOST 
C 
r: 

i:  uuiTi-.  oDTi'UT 

C 

Vn<ITE(0TFILE,200)  NSN .NAME .READl . BAL(l) , RQTY( 1 > .RCOST(l) , 

-t-  PDATE(l)  .BAL(2)  ,RQTY(2)  , RC0ST(2) ,  PDATE( 2 )  , BAL;  3 )  ,RQTY(3)  . 

+  RCOST(3) ,PDATE(3) ,BAL(4) ,RQTY(4) .RC0ST(4) .PDATE(4) .BAL(5) . 

+  RQTY  (  5  )  .  RCOST  (  b  )  ,  PDATE (  5 )  .  BAL(  6  )  .  RQTY  ( 6  )  .  RCOST  ( 6 )  ,  I'DAT I-  ( 6  )  , 

+  BAL(7) ,RQTY(7) ,RCOST(7) .PDATE(7) .SCOST 
200  F0RMAT(A13 , Al9 . F8 . 3 , 19 , 19 , FIO . 2 . 13 . 18 , 1 7 . F8 . 2 . 13 . 1 8 , 1 7 , F8 . 2 , 

+  13, 19,17, F8. 2, 13. 19.17, F8. 2. 13. 19,17, F8. 2. 13. 19,17, F8. 2,13, F12. 2 
C 

C  PROCESS  NEXT  ITEM 
C 

C  DO  70  N-1,7 
C  RCOST(N)-0.00 

C  70  CONTINUE 
C 

GOTO  1 
99  RETURN 
END 

c 

SUBROUTINE  INVPOS  (  BALC  ,  MFD  .  ROP  ,  ObJyTY,  REQ  .  LX/1  Y  ,  HO'l  V  . 

+  RCOST . PDATE . LDT , BAL , PRI CE , SURCH , SCOST , TCOST) 

C 

RFAL  RCOST(7) .SURCH, SCOST, TCOST 

INTEGER  DUIN,PDTD,JDATE.BAL(7) ,RQTY(7) .DQTY(37) , LDT. MFD, ROP 
INTEGER  OBJQTY, REQ(7) .DUEOUT, BALC. PDATE(7) .PRICE 

C 

C  DUIN-O 

SCOST-O.OO 
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PDTD-0 

JDATE-(LDT/30) 

DO  60  M-1,7 
BAL(M)-0 
RQTY(K)-0 
RCOST(M)-0.00 
CONTINUE 

DO  30  J-1,7 

DUIN-0 

DUEOUT-0 

DO  40  K-(.l+l),27 
DUIN-DUIN+DQTY(K) 

CONTINUE 

DUEOUT-REQ(J)+MfD 

BAL(J3-BALC+DUIN-DtJE0UT+DQTY(J) 

BALC-BAL(J) 

IF(BALC.LT.ROP)  THeN 
RQTY  (  J  )  -OB JQTY  -  BALC 
IF(RQTY(J)  .LT.O)  RQT f (J ) --(RQTY(J) ) 
RCOST(J)-RQTY(J)*((PRIcE/100.O)*SURCH) 
PDATE(J)-J-JDArE 
1F(PDATE(J)  .LT.O)  then 

pdtd-jdate 

RCOST  ( 1 )  -RCOsT  ( 1 )  -fRCoST  ( J ) 

RQTY(  1  )-RQ'rY(  1  )+RQTY(  J  ) 

IF(J.GT.l)  ThEK 
RQTY(J)-0 
RCOST(J)'0.00 
ENDIF 
ELSE 

PDTD-JDATE 

ENDIF 

DQTY(J+PDTD)-DQ'n(J+PDTD)+RQTY(J) 

ELSE 

RQr/(J)-0 

RCOST<'J)-0.00 

PDATL(J)-0 

ENDIF 

CONTINUE 

DO  50  1^1,7 

SCOST-SCOST+RCOSrd) 

CONTINUE 


o  n  o 


CALCULATE  TOTAL  COST 


C 

C 

c 


RETURN 
END 

SUBROUTINE  TO  IDENTIFY  MONTHLY  DUE- INS 

SUBROUTINE  CONTR(COFILE,NSN.DQTY,IREAD) 

C 

CHARACTER  CNSN*13 .NSN*13 

INTEGER  CDATE . DTD , CQTY , COFILE . DQTY( 37 ) 

C 

DO  20  1-1,27 
DQrf(I)-0 
20  CONTINUE 
C 

2  IF(IREAD.EQ.l)READ(COFILE, 300, END-99)  CNSN , DTD , CQTY 
300  F0RMAT(A13.I5.I9) 
lREAD-1 
CDATE-90234 
C 

IF  (CNSN.LT.NSN)  GOTO  2 
IF  (CNSN.EQ.NSN)  THEN 
DO  30  J-1.7 

IF  (DTD. LT. CDATE)  THEN 
DQTY ( J ) -DQTY ( J ) ♦CQTY 
GOTO  2 
ELSE 

CDATE-CDATE+30 

ENDIF 

IF  (CDATE. GE. 90365)  CDATE-(91000+(CDATE- 90365) ) 
30  CONTINUE 

ELSE 

GOTO  99 

ENDIF 
GOTO  2 
99  RETURN 
END 
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PROCESSING  OF  NET  REQUIREMENTS 
(Used  in  DLA-OS'a  Request) 

Computer  Code  used  for  sorting  Initiel  output  flies,  calling  the 
FORTRAN  program  (COR . MELIUS . JCL(DELTAl )  which  calculates  the  NET 
requirements  and  screens  resulting  output  file  for  NSNs  that  had 
no  funding  requlrememncs . 


(COR. MELIUS. JCL(MRIDELTA)) 


//G0R6015G  JOB  (6015. COR) , 'MELIUS' , MSGCLASS-V, CLASS-1 ,NOTIFY-GOR6015 

//*TYPRUN-SCAN 

/*J0BP,\RM  S-GSCl 

/* 

//SORTl  EXEC  PGM-IERRCOOO,PARM-'MSG-AP' .REGION-IOOOK 
//SORTLIB  DD  DSN-SYSl 

//SYSOUT  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SORTIN  DD  DSN-GOR. MELIUS. AVCRPT.TSG.DISP-SHR 
//SORTOUT  DD  DSN-&&TEHP1, 

//  DISP-(NEy, PASS, DELETE) , 

//  DCB-(LRECL-388,BLKSIZE-19012.RECFM-FB) . 

//  UNIT-WORKD, 

//  SPACE-(TRJ<,  (200, 300)  .RLSE) 

//SORTWKOl  DD  UNIT-WORKD , SPACE-(CYL, ( 55 , 55) ) 

//SORTWK02  DD  UNIT-WORKD , SPACE-(CYL, (55 . 55) ) 

//S0RTWK03  DD  UNIT-WORKD , SPACE-(CYL. (55 . 55) ) 

//SORTWK04  DD  UNIT-WORKD , SPACE-(CYL. (55 , 55) ) 

//SORTWK05  DO  UNIT-WORKD , SPACE-(CYL. (55 . 55) ; 

//SYSIN  DD  * 

SORT  FIELDS-(1.13.CH,A) 

END 


SORTLIB, DISP-SHR 


/* 


//SORT2 

//SORTLIB 

//SYSOUT 

//SYSPRINT 

//SORTIN 

//SORTOUT 

// 

// 

// 

// 

//SORTWKOl 

//SORTWK02 

//S0RTWK03 

//SORTWKOA 


EXEC  PGM-IERRCOOO,PARM-'MSG-AP' , REGION-IOOOK 
DD  DSN-SYSl, SORTLIB. DISP-SHR 
DD  SYSOUT-* 

DD  SYSOUT-* 

DD  DSN-GOR . MELIUS . AVCRPT . TG . DISP-SHR 
DD  DSN-&61TLMP2 . 

DISP-(NEW, PASS, DELETE) . 

DCB-(LRECL-388  ,  BLKSI.^-E-19012  ,RECFM-FB)  , 
UNIT-WORKD, 

SPACE-(TRK, (200, 300) ,RLSE) 

DD  UNIT-WORKD, SPACE-(CYL. (55,55)) 
DDUNIT-WORKD,SPACE-(CYL,(55,55)) 

DD  UNIT-WORKD, SPACE-(CYL. (55,55)) 

DD  UNIT-WORKD, S PACE- (CYL, (55,55)) 
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//SORTWK05  DD  UNIT-WORKD. SPACE-(CYL, (55 , 55) ) 

//SYS IN  DD  * 

SORT  FIELDS-(1,13,CH,A) 

END 
/* 

//MATCH  EXEC  FORTVCG , 

//  FARM- ' NODECK , NOLIST . NOTF . OPT( 0 ) . SOURCE . NOSRCFLG ' 

//FORT.SYSIN  DD  DSN-GOR. MELIUS .JCL(DELTAl) .DISP-SHR 
//GO.FT02F001  DD  DSN-&&TEMPl.DISP-(OLD. DELETE. DELETE) 

//GO.FT03F001  DD  DSN-&&TEMP2 . DISP- (OLD. DELETE , DELETE) 

//GO.FT06F001  DD  SYSOUT-* 

//GO.rrOSFOOl  DD  DSN-&&TEMP3. 

//  DISP-(NEW. PASS. DELETE). 

//  DCB-(LRECL-388 . BLKSIZE-19012 .RECFM-FB) . 

//  UNIT-WORKD. 

//  SPACE-(TRK. (700.800) .RLSE) 

//SYSOUT  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 

//SYSDUMP  DD  SYSOUT-* 

/* 

//SCREEN  EXEC  PGM-ATJ91U 
//SYSABEND 
//SYSPRINT 
//SYSUTl 
//SYSUT2 
// 

// 

// 

// 

//SYS  IN 
* 

NOREAD 
READ 
LI 

IF  EOJ 

MOVE  SPACE  TO  1.100 
EDIT  H10,9  TO  H20 . BZZZ, ZZZ. Z99 
STRING  'NO.  OF  ITEMS:  '  H20.12 
P  R1.80  EOJ 
ENDIF 

* 

IF  N377.12  NE  '  0.00'  ADD  1  TO  H10.9  WZD  READ  GO  1  ENDIF 

/* 

//SORTF  EXEC  PGM-IERRCOOO . FARM- 'MSG-AP' , REGION-IOOOK 
//SORTLIB  DD  DSN-SYSl .SORTLIB. DISP-SHR 
//SYSOUT  DD  SYSOUT-* 

//SYSPRINT  DD  SYSOUT-* 


DD  SYSOUT-* 

DD  SYSOUT-* 

DD  DSN-6l&TEMP3.DISP-(OLD. DELETE. DELETE) 
DD  DSN-&&TEMPA. 

DISP-(NEW. PASS. DELETE) . 

DCB-(LRECL-388 . BLKSIZE-19012 . RECFM-FB) . 
UNIT-WORKD, 

SPACE-(TRK, (400. 500) .RLSE) 

DD  * 
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//SORTIN  DD  DSN-&&TEMP4,DISP- (OLD. DELETE, DELETE) 

//SORTOUT  DD  DSN-GOR. MELIUS .AVCRPT.DG, 

//  DISP-(NEW, CATLG, DELETE) . 

//  DCB-(LRECb-388 , BLKSIZE-19012 .RECFM-FB) . 

//  UNIT-3350. 

//  VOI^SER-DOROG2 , 

//  SPACE-(TRK. (200,300) ,RLSE) 

//SORTWKOl  DD  UN1T-W0RKD.SPACE-(CYL. (55,55)) 
//SORTUK02  DD  UNIT-W0RKD.3PACE-(CYL. (55,55)) 
//SORTWK03  DD  UNIT-WORKD.SPACE“(CYL. (55,55)) 
//S0RTWK04  DD  UNIT-WORKD.SPACE-(CYL, (55,55)) 
//S0RTWK05  DD  UNIT-WORKD,SPACE-(CYL. (55,55)) 
//SYSIN  DD  * 

SORT  F1ELDS-(33,8,CH,A,79,3.CH,D) 

END 


/* 

/* 
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CALCULATION  OF  NET  ODS  REQUIREMENTS 


Computer  code  used  to  calculate  the  net  ODS  requirements  (written  in  FORTRAN). 
This  program  is  called  by  (GOR. MELIUS. JCL(MRIDELTA) . 


(GOR . MELIUS . JCL(DELTAl) ) 


C  *  ***  MINI  MOBILIZATION  STATUS  MODEL  ***  * 
C  *  * 
C  *  THIS  MODEL  HAS  BEEN  MODIFIED  TO  ANSWER  DLAO'S  FUNDING  * 
C  *  QUESTION  FOR  ARMY  SYSTEMS  IN  DESERT  SHIELL.  * 
C  *  * 


Q  kk'k'k'kk'k'k'k-k'kkit'k'k'k'k'k'k'k'k'kit'k’k'k’k'k'k'kitit'k'k'k'k’k'kiticicic'ic'k'kic'k'k'k'k'k'k’k'k'kk-k'k'k-k'k-k'k'kit'k'k'k 

c 

C  GOR. MELIUS. JCL(MRI) 

C 

C  PROGRAM  VARIABLES 
C 

C  INFILE  -  NORMAL  PLUS  ARMY  DEMAND  FILE 
C  COFILE  -  NORMAL  DEMAND  FILE 
C  OTFILE  -  OUTPUT  FILE 
C 
C 
C 

C  DECLARE  FIELD  NAMES 
C 

CHARACTER  NSN*13 ,NAME*19 ,UIC ^2 , ICC . SSC . ESS .NS1*13 ,NAM1*19 
CHARACTER  ESl.ICl.SSl 
REAL  FACl.SCOSl.RFADl 
INTEGER  PDAT1(12) ,CN1 

REAL  RCOST (12), RCOS 1 ( 1 2 ) . READI , SCOST , TCOST . MTCST ( 1 2 ) . TCOSTl 
I NTEGER  PRICE , BO , DI . OH . MFD . CDATE . LDT . INFI LE . OTFILE , COFILE 
INTEGER  DDATE,PDATE(12) .BA1(12) ,CHK,CH1 
INTEGER  RQTY(12) .RQT1(12) ,BAL(12) 

C 

DATA  INFILE/2/ 

DATA  COFILE/ 3/ 

DATA  OTFILE/8/ 

OPEN  DATA  FILES 

OPEN(INFILE.STATUS-'OLD' ) 

OPEN (CCFILE, STATUS- 'OLD' ) 
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OPEN(OTFILE, STATUS-' NEW ) 

CALL  TOT  PUT ( 1 N  F I LE . COKI LE . OTFI LE ) 

WR1TE(OTFILE,410) 

410  FORMAT  (lOX) 

READ( INFILE, 400) 

READ(COFILE.400) 

400  FORMAT  (  2  54X) 

C 

READ(COFILE . 200 , END-100)  NSl ,NAM1 . READl . ESI .CNl , ICl . SSI . FACl , 
+  BAl(l) .RQTl(l) .RCOSl(l) , 

+  PDATl(l) ,BAl(2) ,RQT1(2) .RCOSl (2) . PDAT1{2 ) . BAl ( 3) ,RQT1(3) . 

+  RCOSL(3) .PDAT1(3) ,BA1(4) ,RQTL(4) . RC0S1(4) , PDATl(4) , BAl ( 5) , 

+  RQT1(5) ,RC0S1(5) ,PDAT1(5) ,BA1(6).RQT1(6).RC0S1(6) ,PDAT1(6)  . 

+  BAl(7) ,RQT1(7) ,RC0S1(7) .PDAT1(7) ,BA1(8),RQT1(8) ,RCOSl(8) . 

+  PDAT1(8) ,BA1(9) ,RQT1(9) .RC0S1(9) .PDAT1(9) .BAl(lO) .RQTl(lO) , 

+  RCOSl(lO)  .PDATKIO)  ,BAl(ll)  ,RQT1(11)  .RCOSl(H)  ,PDAT1(11)  , 

+  BA1(12) .RQT1(12) , RCOSl (12) ,PDAT1( 12) , SCOSTl 
C 
C 

READ ( INFILE . 200 , END-99 )  NSN , NAME , READl . ESS . CNT , I CC , SSC . FACT , 

+  BAL(l) ,RQTY(1) .RCOST(l) . 

+  PDATE(l) .BAL(2) .RQTY(2) .RCOST(2) , PDATE( 2 ) . BAL( 3 ) .RQTY(3) , 

+  RC0ST(3) ,PDATE(3) .BAL(4) ,RQTY(4) .RC0ST(4) . PDATE(4) ,BAL(5) , 

+  RQTY(5)  ,RC0ST(b) ,PDATE(5) .BAL(6) .RQTY(6) ,RCOST(6) ,PDATE(6) , 

+  BAL(7) .RQTY(7) ,RCOST(7) .PDATE(7) ,BAL(8) ,RQTY(8) ,RCOST(8) , 

+  PDATE(8) .BAL(9) .RQTY(9) .RCOST(9) , PDATE(9) . BAL( 10) , ROTY( 10) , 

+  RCOST(IO) ,PDATE(10) .BAL<11) .RQTY(ll) .RC0ST( 1 1 ) , PDATE(11 ) , 

+  BAL(12) ,RQTY(12),RCOST(12),PDATE(12),SCOST 

CONDUCT  MATCH 

100  IF(NSN.EQ.NSl)  THEN 
DO  40  J-1,12 

RCOST(J}-RCOST(J)-RCOS1(J) 

RqTY(J)-RQTY(J) -RQTl(J) 

40  CONTINUE 

SCOST-SCOST- SCOSTl 

WRITE (OTFILE, 200)  NSN .NAME , READl , ESS , CNT , ICC , SSC , FACT . BAL(l) , 
+  RQTY(l) ,RCOST(l) , 

+  PDATE(l) ,BAL(2) ,RQTY(2) . RCOST(2) , PDATE(2) . BAL( 3) ,RQTY(3) , 

+  RCOST(3) ,PDATE(3) ,BAL(4) ,RqTY(4) , RCOST(4 ) . PDATE(4 ) . BAL( 5 ) , 

+  RqTY(5)  ,RCOST(5)  ,PDATE(5)  .BAL(6)  ,RqTY(6)  ,RCOST(6)  .PDATE(,6)  . 

+  BAL(7)  ,RQTY(7) .RCOST(7) , PDATE(7) ,EAL(8) ,RQTY(8) .RC0ST(8) . 

+  PUATE(8) ,BAL(9) ,RqTY(9) ,RC05T(9) , PDATE(9) ,BAL(10) ,RQTY(10) , 

+  RCOST(IO) ,PDATE(10) ,BAL(11) .RqTY(ll) .RCOST(ll) .PDATE(ll) , 

+  BAL(12)  .RQTY(12)  ,RC0ST(12)  ,PDATr.(12)  .SCOST 
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RE1AD(C0FILE,  200  .  END-LOO)  NSl , NAMl . READl ,  ESI  ,CN1 ,  ICl ,  SSL  ,  FACl . 

+  BAl(l) ,RQT1(1) ,RCOSl(i) , 

^  PDATl(l)  ,BAl(2)  .RQTl  (2)  .NCOS)  (?)  .I'DATl  (?)  .  RM  (3)  (  i)  , 

+  RCOSIO)  .PDAT1(3),BA1(4)  .RQTl('i)  ,RCOSi(A)  ,  PDATl(4)  ,  BAl(5)  . 

+  RQT1(5) .RC0S1(5) .PDAT1(5).BA1(6).RQT1(6),RC0S1(6) ,PDAT1(6) . 

+  BA1(7) .RQTl(7) , RCOSl ( 7 ) , PDATl ( 7) . RAl (8) .RQT1(8) .RC0S1(8) , 

■t  PDAT1(8)  ,BA1(9)  .RQT1(9)  . RCOS  1  (9)  ,  PDATl  (9)  ,  RA 1  ( 1  0)  .  KQTl  ( 1 0)  . 

+  RCOSl  (10)  .PDATl  (10)  ,BA1(11)  .RQTKll)  .RCOSl(ll)  .PDATKll)  , 

+  BA1(12) .RQTl(i2) ,RC0S1(12) . PDAT1(12) .SCOSTl 
C 

c 

READ( INFILE . 200 , END-99 )  NSN . NAME , READl , ESS . CNT . ICC . SSC . FACT . 

+  BAL(l) .RQTY(l) ,RCOST(l) , 

+  PDATE(l) ,BAL(2) .RQTY(2) .RC0ST(2) ,PDATE(2) , BAL(3) ,RQTY(3) , 

+  RCOST(3) .PDATE(3) .EAL(4) .RQTY(4) . RCOST(4) . PDATE(4) , BAL( 5) , 

+  RQTY(5) ,RC0ST(5) , PDATE( 5) , BAL^6) , RQTY(6) . RC0ST( 6) . PDATE(6) . 

+  BAL(7) ,RQTY(7) ,Rr0ST(7) ,PDATE(7) .BAL(8) ,RQTY(8) .RC0ST(8) , 

*  PDATE(8) ,RAL(9) ,RQTY(9) , RC0ST(9 ) . PDATK(9) . BAI.( 1 0) , KQTY( 1 0) , 

+  RCOST(iO) .PDATE(IO) . BAL( 11 ) , RQTY( 1 1 ) ,RCOST(ll) , PI)ATE( 11), 

+  BAL(12) .RQTY(12) ,RCOST( 12) , PDATE( 12 ) .SCOST 
C 
(; 

ELSE 

IF(NSN.GT.NSl)  THEN 

READ(C0FILE, 200, END-100)  NSl . NAMl .READl , ESI . CNl , ICl , SSI , FACl , 

+  BAl(l)  ,RQT1(1)  .RCOSKl)  . 

+  PDATl (1) ,BAl(2) ,RQTL(2) .RC0Sl(2) .FDAT1(2) ,BAl(3) .RQT1(3) , 

+  RC0S1(3) .PDAT1(3) .BA1(4) ,RQT1 (4) . RCOSl (4) , PDATl (4 ) . BAl ( 5) , 

+  RQT1(5) ,RC0S1(5) .PDATl(f) .BA1(6),RQT1(6) ,RC0S1(6) ,PnAVl(6) , 

+  BAl(7) ,RQT1(7) .RCOSl (7) . PDATl ( 7) . BAl(O) . RQTl (8 ) . Rf OSl (8 ) , 

+  PDAT1(8).BA1(9),RQT1(9),RC0S1(9).PDAT1(9).BA1(10)  RQTl(lO). 

+  RCOSl (10) .PDATl (10) .BAl (11) .RQTl(ll) .RCOSl ( 11) . PDATl ( 11 ) , 

+  BAl (12) . RQTl (12) .RCOSl (12) .PDAT1( 12) .SCOSTl 
C 
C 

ELSE 

WR1TE(OTFILE.20C)  NSN , NAME . READl . ESS .CNT. ICC , SSC , FACT . BAL( 1 ) . 
+  RQTY(l) .RCCST(l) . 

+  PDATE(l)  .BAL(2)  . RQTY(  2 )  , RCOST( 2) .  PDATE(2) .  BAL(  3 )  .RQri’(3)  . 

+  RCOST(3) .PDATE(3) ,BAL(4) .RQTY(4) .RCOST(4) . PDATF(4) ,BAL(5) . 

)  RQTY('j)  .R(;0ST(  S)  .  1’DATF,(‘))  .  RAI.(4)  ,  lf()TY(4)  ,  R(:0S  I  (  f, )  ,  I'DATEC  4 )  . 

+  BAL(7)  ,RQTY(7)  . RCOST(  7 ) . PDATE(  7)  .  BAL^, 8)  . RQTY( 8)  ,RCOST(8)  . 

+  PDATE(8) .BAL(9) .RQTY(9) .RC0ST(9) , PDATE(9) . BaL(  1  0) ,RQTY(10) . 

+  RCOST(IO) .PDATE(IO) .BAL(ll) . RQTY( 11 ) .RCOST( 11 )  ,  PDATE(ll) , 

+  BAL(12) .RQTY(12) ,RC0ST(]2) ,PDATE(12) .SCOST 
C 
C 
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READ ( INFILE .  200  .  END-'"9  )  NSN  , NAME . READI .  ESS  ,  CNT ,  ICC ,  SSC .  FACT , 

+  BAL(l) .RQTY(l) .RCOST(l) . 

+  PDATE(l) .BAL(?) , RQTY(2 ) . RCOST(2 ) . PDATE(2 ) . BAL( 3) . RQTY( 3 ) . 

^  RCOST(3) ,PDATR(3) ,BA1,(4) ,RQTY(4) ,RCOST(4 ) . PDATE(4 ) ,BAL(5) . 
t  RQTY(5)  .RCOST('j)  ,PDATE(5)  .BAL(6)  ,RQTY(6)  .RCOST(6)  ,  l*DATl-(6)  . 

+  BAL(7),RQTY(7) . RCOST( 7 ) . PDATE( 7 ) . BAL(8) . RQTY(8) .RCOST(8) . 

+  PDATE(e) ,BAL(9) , RQTY( 9) , RCOST(9) , PDATE(9) , BAL( 10) ,RQTY(10) , 

+  RCOST(IO) ,PDATE(10) . BAL(ll) .RQTY(ll) .RCOST( 11) , PDATE( 11) , 

^  BAL(12) .RQTY(12) , kCOST( 1 2 ) , PDATE( 12) .SCOST 
C 

ENDIF 
F.NDIF 
GOTO  100 
C 

200  F0RMAT(A13 , A19 . F8 . 3 . Al , 13 . Al . Al , F4 . 2 , 19 , 19 , FIO . 2 . 13 , 17 . 16 , FIO . 2 . 
+  13, 17. 16. FIO. 2. 13. 18. 16. 

4  FIO. 2. 13. 18. 16. FIO. 2. 1 3. 18. 16. FIO. 2, 13. 18. 1 6. FIO. 2, 1 3. 18, 16. 

4  FIO. 2, 13. 18. 16, FIO. 2, 1 3, 18, 16, FIO. 2. 1 3. 18, 16. FIO. 2. 1 3, 18. 16. 

4  F10.2,I3.F12.2) 

C 

99  CLOSE(INFILE) 

CLOSE(COFILE) 

CLOSE(OTFILE) 

STOP 

END 

C 

SUBROUTINE  TOTPUT(INFILE. COFILE, OTFILE) 

C 

REAL  MTCST(12) ,MTCSl(12) .TCOSl.TCOST 
INTEGER  INFILE, OTFILE, COFILE 
C 

READ(INFTLE,A()0)  MTCST(l) .MTCST(?) .MTCST{3) ,HTCST(4) .MTCSTC^) . 

4  MTCST(6) .MTCST( /) ,MTCST(8) .MTCST(9) .MTCST( 10) .MTCST( 11) . 

4  MTCST(12) .TCOST 
C 

READ(C0FILE,400)  MTCSl(l) .MTCS1(2) ,MTCSl(3) ,MTCS1(4) .MTCS1(5) , 

4  MTCS1(6)  .MTCSl  ( /)  .MTCS1(8)  .MTCSl  (9)  .MTCSl(lO)  .MTCSKll )  . 

4  MTCS1(12) .TCOSl 

C 

DO  10  J-1,12 

MTCST(J)-MTCST(J) -MTCSl(J) 

10  CONTINUE 
C 

TCOST-TCOST- TCOSl 
C 

WRITE(OTFILE.400)  MTCST(l) ,MTCST(2) ,MTCST(3) .MTCST(4) .MTCST(5)  . 
4  MTCST(6) ,MTCST(7) .MTCST(8) ,MTCST(9) ,MTCST(10) ,MTCST(11) . 

4  MTCST(12) .TCOST 
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400  F0RMAT(64X.F14.2,14X.F12.2,15X,F11.2,16X.F11.2,16X,F11.2.16X. 
+  Fll . 2 . 16X, Fll . 2 . 16X. Fll . 2 , 16X. Fll . 2 , 16X. Fll . 2 . 16X, Fll . 2 . 16X, 
+  F11.2,F15.2) 

RETURN 

END 
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mobilization,  and  would  serve  as  a  source  for  basing  critical  resource 
allocation  decisions.  Two  areas  of  immediate  concern  were  the  identification 
of  items  in  which  rapid  industrial  support  would  be  required  and  the 
detertTiinat ion  of  funding  requirements  needed  to  procure  DLA-managed  parts  for 
ODS.  Based  on  the  above  requirements,  a  deterministic  mainframe  based  model 
was  developed.  Capabilities  of  the  model  include  calculating  a  "proactive" 
procurement  schedule,  determining  ability  of  on-hand  and  due— in  stocks  in 
meeting  mobilization  requirements,  and  assessing  summary  funding  requirements 
on  an  NSN  and  time  horizon  basis. 
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